can not open database

[Palmtree]

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)

[frigginjerk]

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.

[Bruce Fox]

Maybe:

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.

[Palmtree]

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.

[frigginjerk]

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