Dim DB As Database      'Datenbank für öffnen der Exceldatei
Dim RS As Recordset     '"Tabelle der Datenbank"
'DB öffnen
Set DB = DBEngine.openDataBase(App.Path + "\temp\verlauf.xls", False, False, _
  "Excel 8.0;")
Set RS = DB.OpenRecordset("Tabelle1$", dbOpenDynaset)

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!