can not open database

Can somebody tell what I am doing wrong here, I got error"type mismatch" when the running reach the last line.



Global ws As Workspace
Global freshDB As Database
Global freshDBName As String


DBEngine.SystemDB = App.path + "\database\Mfguser.mdw"
Set ws = CreateWorkspace("", "dn8tj3o2p5k0gls32ws4", "gia3sejt8lztek")

freshDBName = App.path + "\database\mydb.mdb"
Set freshDB = DBEngine.OpenDatabase(freshDBName)

first guess is that your trying to connect to a access 2000, 2002 or 2003 mdb file.

if this is true then your problem is probably that you have a reference to dao3.51 or below in your vb project. When connecting to a access 2000, 2002 or 2003 mdb file you need to reference dao3.60

you can get dao3.60 by installing vb service pack 5.

Maybe:

VB Code:

DBEngine.SystemDB = App.Path + "\database\Mfguser.mdw"
Set ws = [b]DBEngine[/b].CreateWorkspace("", "dn8tj3o2p5k0gls32ws4", "gia3sejt8lztek")
 
freshDBName = App.Path + "\database\mydb.mdb"
Set freshDB = [b]ws[/b].OpenDatabase(freshDBName)

Bruce.

Actually my db is Access7, and I use dao350.

Well, the whole story is like this: the program run perfectly before I made the reference change from dao350 to dao360. I found dao360 would not work and tried to change it back to dao350, then the error happened.

actually dao360 is backward compatible with dao3.51 and below so you should still be able to do every you use to.

do you by any chance have a refernce to ado in your project? if you do then you would need to change

Global freshDB As Database

to

Global freshDB As DAO.Database