<code>Dim Db As Database
Dim Rs As Recordset
Dim strFilename As String
Dim strLine As String
Dim F As Integer
Dim strFeld1 As String
Dim strFeld2 As String
Dim strFeld3 As String
Dim strFeld4 As String
 
<font color=green>' Datenbank öffnen</font>
Set Db = DBEngine.OpenDatabase("DeineMDB.MDB", False, _
  False)
 
<font color=green>' Recordset (Tabelle) öffnen</font>
Set Rs = Db.OpenTable("DeineTabelle")
 
<font color=green>' Textdatei öffnen</font>
strFilename = "DeineDatei.txt"
F = FreeFile
Open strFilename For Input As #F
 
<font color=green>' Textdatei zeilenweise ändern</font>
While Not EOF(F)
  Line Input #F, strLine
 
  <font color=green>' Zeile in Felder aufteilen</font>
  strFeld1 = Left$(strLine, 6)    ' Datum
  strFeld2 = Mid$(strLine, 7, 3)  ' Uhrzeit
  strFeld3 = Mid$(strLine, 10, 5) ' DAMEx
  strFeld4 = Mid$(strLine, 15, 3) ' Bewertungs-Code
  strFeld5 = Mid$(strLine, 18, 1) ' Schulnote
 
  <font color=green>' Datenzeile dem Recordset (Tabelle) hinzufügen</font>
  Rs.AddNew
  Rs("Feld1") = strFeld1
  Rs("Feld2") = strFeld2
  Rs("Feld3") = strFeld3
  Rs("Feld4") = strFeld4
  Rs("Feld5") = strFeld5
  Rs.Update
 
Wend
Close #F
 
<font color=green>' Recordset und Datenbank schliessen</font>
Rs.Close
Set Rs = Nothing
 
Db.Close
Set Db = Nothing</code>