Dim dnr as Long
               Dim zeile as String
    dnr = FreeFile
    Open <Pfadangabe + Dateiname> For Input Access Read As #dnr
         Do While Not EOF(dnr)
            Line Input #dnr, Zeile
            ....................................
           .....................................
           .....................................
         Loop
 
    Close #dnr

   Dim db As Database
               Dim rcdSpeichern As Recordset
               Dim dnr As Long
               Dim zeile As String
 
    Set db = CurrentDb()
    Set rcdSpeichern = db.OpenRecordset("<Tabellenname">)
    dnr = FreeFile
 
    Open <Pfadangabe + Dateiname> For Input Access Read As #dnr
         Do While Not EOF(dnr)
            Line Input #dnr, Zeile
            rcdSpeichern.AddNew
           rcdSpeichern![<Spaltenname>] = Zeile
            ....................................
           .....................................
           .....................................
          rcdSpeichern.Update
         Loop
 
    Close #dnr
 
    rcdSpeichern.Close
    db.Close

Gruss

Markus