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)