【Access⑬】テーブルにインポートするファイルをダイアログで選択する

Function FileSelect()
'参照設定　Microsoft office14.0 Object Library必要
On Error GoTo ErrorHandler 'エラー処理ルーチンを実行します。
Dim Returnvalue As Variant
Dim strmsg As String
Returnvalue = SysCmd(acSysCmdAccessVer)
strmsg = "Access2002、2003でないため、この機能を利用できません。"
'Accessのバージョンを調べます。
'Access2000は10.0、Access2000は9.0,Access97は8.0,Access95は7.0を返します。
    Dim inttype As Integer
    Dim varSelectedFile As Variant
    'ファイルを選択する場合は、msofiledialogfilepicker
    'フォルダーを選択する場合は、msofiledialogfolderpicker
    inttype = msoFileDialogFilePicker
    'ファイル参照用の設定値をセットします。
    With Application.FileDialog(inttype)
        'ダイアログタイトル名
        .Title = "ファイル選択"
        'ファイルの種類を定義します。
        '.Filters.Add "xls ファイル", "*.csv"
        '.Filters.Add "xlsファイル", "*.csv"
        .Filters.Add "すべてのファイル", "*.*"
        '複数ファイル選択を可能にする場合はTrue、不可の場合はFalse。
        .AllowMultiSelect = False
        '最初に開くホルダーを当ファイルのフォルダーとします。
        .InitialFileName = CurrentProject.Path
        If .Show = -1 Then 'ファイルが選択されれば　-1 を返します。
            For Each varSelectedFile In .SelectedItems
                FileSelect = varSelectedFile
            Next
        End If
    End With
Exit Function
ErrorHandler:
MsgBox "予期せぬエラーが発生しました" & Chr(13) & _
        "エラーナンバー：" & Err.Number & Chr(13) & _
        "エラー内容：" & Err.Description, vbOKOnly
End
End Function

Private Sub コマンド0_Click()

Me.(テキストボックス名) = FileSelect
Dim ps As String
ps = Me.(テキストボックス名)
DoCmd.SetWarnings False
DoCmd.TransferText acImportDelim, "(インポート定義名）", "（インポートするテーブル名）", ps, False, ""
MsgBox "インポートしました。", vbOKOnly, ""

End Sub