Dim SQL As String
Dim Rs As Recordset
Dim F As Integer
Dim i As Integer
 
' Abfrage erstellen
SQL = "SELECT Feld1, Feld2, Feld3 FROM Tabelle"
Set Rs = Db.OpenRecordset(SQL)
 
If Rs.RecordCount > 0 Then
  ' Textdatei erstellen
  F = FreeFile
  Open "DeineDatei.txt" For Output As #F
 
  ' alle Datensätze rausschreiben
  Do Until Rs.Eof
    For i = 0 To Rs.Fields.Count - 1
      Print #F, Rs(i) & ";"; 
    Next i
    Print #F, ""
    Rs.MoveNext
  Loop
  Close #F
End If
Rs.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de