Fehler beim öffnen der Datenbank

neopayne

Erfahrenes Mitglied
Ich arbeite mich gerade durch ein Datenbank Tutorial. Mein Problem ist das schon beim Code zum Öffnen der Datenbank ein Fehler auftritt

DER CODE:

Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String


dbFile = App.Path + "\Movie.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("Filme")

DIE FEHLERMELDUNG:

Fehler bim Kompillieren:
Außerhalb einer Prozedur ungültig


hoffe es kann mir jemand helfen!
 

Neue Beiträge

Zurück