Dim wsp As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim dbPfad
Const datei = "Daten.txt"
 
dbPfad = "C:\db1.mdb"
 
Set wsp = DBEngine.Workspaces(0)
Set db = wsp.OpenDatabase(dbPfad, False, False)
Set rs = db.OpenRecordset("select * from Tabelle1")
 
If Not rs.EOF Then
 
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile(datei, 8, True)
 
    rs.MoveFirst
    Do
         file.WriteLine rs.Fields("name").Value 'Datei schreiben
        rs.MoveNext
    Loop While Not rs.EOF
    file.Close
    Set file = Nothing
    Set fso = Nothing
    Set rs = Nothing
    Set db = Nothing
    Set wsp = Nothing
 
End If

Gru? TommyK