Dim db As Database, Tabelle As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Tabelle")
 
Dim DateiName As String
Dim DateiNr As Integer
Dim Zeile, Anfang As String
DateiName = "c:\datei.csv"
DateiNr = FreeFile
Dim strT() As String
 
Open DateiName For Input As DateiNr
           Line Input #DateiNr, Anfang
           Do While Not EOF(DateiNr)
                Line Input #DateiNr, Zeile
                strT = Split(Zeile, ";")
                rs.AddNew
                rs("Feld1") = strT(0)
                rs("Feld2") = strT(1)
                rs("Feld3") = strT(2)
 
                'usw. je nachdem wieviele Felder drin stehen
 
          Loop
Close DateiNr