The only code, in this thread segment OR the other, was put up by JimBob:

DBEngine.SystemDB = "c:\windows\system\system.mdw"
Set ws = CreateWorkspace("Ticketing", "Admin", "", dbUseJet)


If I were you, after dbengine.systemdb I would add:

DBEngine.DefaultUser= "username" 'the user that has the authority to open the database
DBnEngine.DefaultPassword="" 'password for the above user

Then Open the database with:

Set ws=CreateWorkspace(Cath\database.mdb")