Sub DatenExportExcelDAO()
    Dim dbs As DAO.Database
    Dim SQL As String
    'QuellDatenbank öffnen
    Set dbs = OpenDatabase("D:\Daten\DeineDatenbank.mdb")
    strSQL = "SELECT * " & _
                 "INTO TabellenNameExcel " & _
                 "IN 'D:\Daten\Excel_DB.xls' 'EXCEL 8.0;' " & _
                 "FROM tblTest;"
    dbs.Execute strSQL
End Sub