Dim DB As Database
Dim Tabelle As Recordset
Dim dbFile As String
 
'DB und Tabelle öffnen
dbFile = "C:\Dokumente und Einstellungen\Besitzer\Desktop" + "\Test.mdb"
Set DB = Workspaces(0).OpenDatabase(dbFile, True, False)
Set Tabelle = DB.OpenRecordset("tblTest")  ' '## Fehler! ##
 
Tabelle.Close
DB.Close
 
'Daten schreiben
Tabelle.AddNew
Tabelle("Name") = "Markus"
Tabelle("Vorname") = "xyz"
 
Tabelle.Update