如何打开文件名选择框?

好学

在ACCESS中打开文件名选择框用下面代码就可以了,但在VB应该如何写呢?
    Dim FileName As String
    Dim Result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "文件名称"
        .Filters.Add "文件", "*.TXT"
        .AllowMultiSelect = False
        .InitialFileName = App.Path & "\ABC"   
        Result = .Show
      End With

Danny.Chu

先在窗体上放CommonDialog控件.
Private Sub cmdOpen_Click()
On Error GoTo Result
    Dim strNeedFileName as string
    CommonDialog1.CancelError = True
    CommonDialog1.ShowOpen
    strNeedFileName = CommonDialog1.FileName

Result:
    Select Case Err.Number
        Case Is = 32755
            Exit Sub
        Case Is = 20
            Resume Next
        Case Is = 0
            Resume Next
        Case Else
            MsgBox Err.Number & Err.Description
            Exit Sub
    End Select
End Sub