Hallo D.
das geht so:
Sub DAOtest()
Dim oDB As DAO.Database
Dim oRec As DAO.Recordset
Const Pfad = "c:\..."
Const Bereich = "Eintraege"
Set oDB = OpenDatabase(Pfad, False, True, "Excel 9.0;")
Set oRec = oDB.OpenRecordset("Select * FROM `" & Bereich & "`")
Do While (Not oRec.EOF)
Debug.Print oRec.Fields(0)
oRec.MoveNext
Loop
oRec.Close: Set oRec = Nothing
oDB.Close: Set oDB = Nothing
End Sub
Du musst allerdings den Bereich in der Tabelle vorher benannt haben.
Daniel