Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim sFile As String
Dim F As Integer
 
Set DB = DBEngine.OpenDatabase("DeineMDB.mdb")
SQL = "SELECT * FROM DeineTabelle WHERE ..."
Set Rs = DB.OpenRecordset(SQL)
 
If Rs.RecordCound > 0 Then
  Do Until Rs.EOF
    <font color=green>' Dateinamen erzeugen</font>
    sFile = "Pfad\" & Rs("Feld_x") & ".txt"
    F = FreeFile
    Open sFile For Ouput As #F
    Print #F, Rs("Feld_x")
    Print #F, Rs("Feld_y")
    Print #F, Rs("Feld_z")
    Close #F
 
    Rs.MoveNext
  LooP
End If
 
Rs.Close
Set Rs = Nothing
DB.Close
Set DB = Nothing