<code>Dim F As Integer
Dim Feld As Field
Dim Trenner As String
 
<font color=green>' Textdatei öffnen</font>
F = FreeFIle
Open "DeineDatei.txt" Fot Output As #F
 
<font color=green>' Feldtrennzeichen, um die einzelnen Feldinhalte in 
' der Textdatei voneinander zu trennen</font>
Trenner = ";"
 
<font color=green>' Recordset durchlaufen</font>
rs.MoveFirst
While Not rs.Eof
  For Each Feld in rs.Fields
    Print #F, Feld;     <font color=green>' Feld-Inhalt</font>
    Print #F, Trenner;  <font color=green>' Feldtrennzeichen</font>
  Next  
  Print #F, ""  <font color=green>' Zeilenvorschub</font>
  rs.MoveNext
Wend
 
<font color=green>' Textdatei schliessen</font>
Close #F</code>