'Oeffentliche variablen
    Public DaoRs As DAO.Recordset
    Public MyWorkspace As DAO.Workspace
    Public CsvFile As DAO.Database
 
 
Private Sub Command1_Click()
'verknüpfen
    Dim ZielDatei As String
    ZielDatei = App.Path & "\Database\Auftrag1.csv"
 
    'Datenbank und Tabellen öffnen
    Set MyWorkspace = Workspaces(0)
 
    'Verweiss auf den Ortner als Datenbank öffnen
    Set CsvFile = MyWorkspace.OpenDatabase(App.Path & "\Database", False, _
      False, "Text;")
 
    'Tabelle als File öffnen
    'Set DaoRs = CsvFile.OpenRecordset("Auftrag1.csv", dbOpenDynaset)
    Set DaoRs = CsvFile.OpenRecordset("SELECT f1, f2, f3 FROM Auftrag1.csv", _
      dbOpenDynaset)
 
    'Dem data zuwessen
    Set Me.Data.Recordset = DaoRs
 
End Sub

Cya At Frostwolf