Sub DAO_OpenISAMDatabase()
    Dim db As DAO.Database
    Dim strSQL As String
    Dim sTextFile As String
    Dim sPfadTextdatei As String
    Dim sTabName As String
    Dim sAccessFile As String
    sTextFile = "InputFile.TXT"
    sPfadTextdatei = "D:\daten"
    sTabName = "TabInmportTest1"
    sAccessFile = "D:\daten\DB1.mdb"
    Set db = DBEngine.OpenDatabase(sPfadTextdatei, False, False, "Text;")
    strSQL = "SELECT * INTO " & sTabName & " IN '" & sAccessFile & _
             "' FROM " & sTextFile & ";"
    'nur bestimmte Spalten importieren
    'strSQL = "SELECT Spaltenname1,Spaltenname3 " & "_"
    '         "INTO " & sTabName & " IN '" & sAccessFile & _
    '         "' FROM " & sTextFile & ";"
    db.Execute strSQL
    db.Close
End Sub