ACCESSへCSV形式ファイルをインポートする

「参照追加」→「COMタブ」→「Microsoft Access Library」
Dim mdbPath As String = "C:\\\\test\\\\foo.mdb"   'mdbのパス
Dim oAccess As Access.ApplicationClass
oAccess = New Access.ApplicationClass()

oAccess.OpenCurrentDatabase(mdbPath)

Dim schemaFile As String = ""               'エクスポート定義ファイル名
Dim tableName As String = "ImportTable"     'テーブル名
Dim csvPath As String = "C:\\\\test\\\\bar.csv"   'CSVのパス
Dim hasFieldNames As Boolean = False        'ファイルの先頭行が列名の場合 True

oAccess.DoCmd.TransferText( _
    Access.AcTextTransferType.acImportDelim, _
    schemaFile, _
    tableName, _
    csvPath, _
    hasFieldNames)

oAccess.Quit()

  Dim file_values As String
        Dim mdbPath As String = Application.StartupPath & "\\\\DataBase1.mdb"
        Dim appAccess As Access.ApplicationClass
        appAccess = New Access.ApplicationClass
        appAccess.OpenCurrentDatabase(mdbPath)

        Dim fileName As String
        Dim use_table As String ="[インポートするテーブル名(データベース内の既存テーブル名)]"
        OFD.InitialDirectory = Application.StartupPath & "\\\\[CSV形式ファイル保存フォルダ]"
        OFD.Filter = "CSV形式(*.csv)|*.csv|全ての形式(*.*)|*.*"

        OFD.RestoreDirectory = True

            If OFD.ShowDialog = DialogResult.Cancel Then
                Exit Sub
            End If
            fileName = OFD.FileName
            appAccess.DoCmd.TransferText(Access.AcTextTransferType.acImportDelim, "", use_Table, fileName, False)
            appAccess.Quit()