<code>Dim F As Integer
Dim sInhalt As String
Dim sTextFile As String
Dim lPos As Long
Dim sLine As String
Dim iFeldCount As Long
Dim Db As Database
Dim Rs As Recordset
 
<font color=green>' maximale Anzahl Felder pro Zeile</font>
Const iMaxFelder = 20
ReDim sFeld(iMaxFelder)
 
<font color=green>' Access-Datenbank + Tabelle öffnen</font>
Set Db = OpenDatabase("DeineMDB.mdb", False, False)
Set Rs = Db.OpenRecordset("DeineTabelle")
 
sTextFile = "DeineCSVDatei.csv"
 
<font color=green>' zunächst den gesamten Inhalt einlesen</font>
F = FreeFile
Open sTextFile For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
<font color=green>' nun den Inhalt splitten (LF)</font>
Do
  lPos = InStr(sInhalt, Chr$(10))
  If lPos > 0 Then
    sLine = Left$(sInhalt, lPos - 1)
    sInhalt = Mid$(sInhalt, lPos + 1)
  Else
    sLine = sInhalt: sInhalt = ""
  End If
 
  <font color=green>' Nun die einzelnen Felder ermitteln</font>
  iFeldCount = 0
  While sLine <> ""
    iFeldCount = iFeldCount + 1
    lPos = InStr(sLine, ";")
    If lPos > 0 Then
      sFeld(iFeldCount) = Left$(sLine, lPos - 1)
      sLine = Mid$(sLine, lPos + 1)
    Else
      sFeld(iFeldCount) = sLine: sLine = ""
    End If
  Wend
 
  <font color=green>' Felder in die Datenbank speichern</font>
  Rs.AddNew
  Rs("Feld_1") = sFeld(1)
  Rs("Feld_2") = sFeld(2)
  ...
  Rs.Update
Loop Until sInhalt = ""
Close #F
 
Rs.Close
Db.Close</code>