Dim dbConnection
Dim dbPfad
Dim rs
Const datei = "Daten.txt"
 
dbPfad = "C:\db1.mdb"
 
Set dbConnection = CreateObject("ADODB.Connection")
dbConnection.Open "DBQ=" & dbPfad & _
   ";Driver={Microsoft Access Driver (*.mdb)};"
 
Set rs = dbConnection.Execute("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
 
End If