Hallo vbaTrainee85,
das funktioniert so:
Dim dbe As Object, db As Object, rs As Object
Dim strDB As String, i As Integer
strDB = "D:\Daten\Access\xxx...\meineDB.accdb"
'Set dbe = CreateObject ("DAO.DBEngine.36") 'Access 2000-2003
'Initialisieren
'DAO-Engine
Set dbe = CreateObject("DAO.DBEngine.120") 'ab Access 2007
'Datenbank öffnen
Set db = dbe.Workspaces(0).OpenDatabase(strDB)
'Tabelle als Recordset öffnen
Set rs = db.OpenRecordset("Artikel", dbOpenSnapshot, dbReadOnly)
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Name
Next i
Gruß von Luschi
aus klein-Paris