Dim F as string
Dim strDatei as string
Dim sLine as string
Dim sData
 
 
F = Freefile
strDatei = "c:\temp\test.txt"
 
Open strDatei for Input As #F
 
While Not EOF(F)
      Line Input #F, sLine
      sData = Split(sLine, ";")
 
      rs.AddNew
      rs.("Feld1") = sData(0)
      ....
 
      rs.Update
Wend
Close #F