<code>  <font color=#000099>Dim</font> Db <font color=#000099>As</font> Database
  <font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> sLine <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
 
  <font color=green>' Datenbank öffnen</font>
  <font color=#000099>Set</font> Db = DBEngine.OpenDatabase("DeineMDB.mdb")
 
  <font color=green>' Recordset öffnen</font>
  <font color=#000099>Set</font> Rs = Db.OpenRecordset("DeineTabelle")
 
  <font color=green>' Textdatei öffnen</font>
  F = FreeFile
  <font color=#000099>Open</font> "DeineTextdatei.txt" <font _
    color=#000099>For</font> <font color=#000099>Input</font> <font _
    color=#000099>As</font> #F
 
  <font color=green>' Zeilenweise einlesen</font>
  <font color=#000099>While</font> <font color=#000099>Not</font> EOF(F)
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sLine
 
    <font color=green>' Jetzt die eingelesene Zeile in die Datenbank 
    ' einfügen</font>
    Rs.AddNew
    Rs("Feld1") = RTrim(Mid(sLine, 1, 10))
    Rs("Feld2") = RTrim(Mid(sLine, 11, 5))
    Rs("Feld3") = RTrim(Mid(sLine, 16, 8))
    <font color=green>' ... usw. ...</font>
 
    Rs.Update
  Wend
 
  <font color=green>' Alles schliessen</font>
  <font color=#000099>Close</font> #F
  Rs.<font color=#000099>Close</font>
  Db.<font color=#000099>Close</font></code>