Error in liking the database with the vb
i have declair the database as folowing
Set WS1 = DBEngine.Workspaces(0)
DbFile = (App.Path & "\AddressBook.mdb")
PwdString = "swordfish"
Set db1 = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs1 = db.OpenRecordset("vist", dbOpenTable)
but alwayz in compiling highlight the last statment and
give me this error :
unrecognized database format
* note: i have declaired evrything in the model
|