Dim db As Database, Tabelle As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("SELECT * FROM Tabelle")
 
Dim DateiName As String
Dim DateiNr As Integer
Dim strLine As String
DateiName = "c:\s.csv"
DateiNr = FreeFile
 
Open DateiName For Output As DateiNr
While Not rs.EOF
    print #DateiNr, rs("ID") & ";" & rs("Name") & ";" & rs("Datum")
    rs.movenext
Wend
 
Close DateiNr