SQLDBExport "SELECT * FROM Tabelle WHERE Bedingung", _
                                    "Feld1|Feld2|Feld3|Feld4|Feld5",_
                                    "|", _
                                    "app.path & "\db.mdb", _
                                    "app.path & "\dbexport.csv", _
                                    ";"

Public Sub SQLDBExport(ByVal SQL As String, _
                    ByVal exportFields As String, _
                    ByVal DelimiterFields As String, _
                    ByVal dbfile As String, _
                    ByVal exportFile As String, _
                    ByVal DelimiterExport As String)
 
    'Datenbank
    Dim db As Database
    Set db = Workspaces(0).OpenDatabase(dbfile, False, False)
 
    'Recordset
    Dim rs As Recordset
 
    'Recordset öffnen
    Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)
 
    'Zeiger an den Anfang der Tabelle...
    SQLrsSetRecord rs
 
    'Wenn Datensätze vorhanden...
    If rs.RecordCount <> 0 Then
 
        'Datei zum schreiben
        file = FreeFile
        Open exportFile For Output As #file
 
        'die zu exportierenden Fields in einzelne Namen aufsplitten
        felder = Split(exportFields, DelimiterFields)
 
 
        'Datensatzweise
        Do
 
            'Feldweise
            For i = 0 To UBound(felder)
 
                'wenn von 0 bis vorletztes Feld...
                If i < UBound(felder) Then
                    Print #file, rs(felder(i)) & DelimiterExport;
 
                'beim letzten Feld kein ";" am ende, damit in der export-
                'Datei eine neue Zeile angefangen wird...
                Else
                    Print #file, rs(felder(i))
                End If
 
            'nexter Datensatz
            rs.MoveNext
 
        'bis zum letzten
        Loop Until rs.EOF
 
        'Exportfile schließen
        Close #file
 
    End If
 
    'Variablen killen...
    Set rs = Nothing
    Set felder = Nothing
 
    db.Close
    Set db = Nothing
 
End Sub

Public Sub SQLrsSetRecord(ByVal rs As Recordset)
    'rs-Zeiger setzen
        If rs.EOF = False Then rs.MoveLast
        If rs.BOF = False Then rs.MoveFirst
End Sub