请问:使用database对象打开有密码的Access数据库问题？

Question

我的代码是:    Dim wrkJet As Workspace    
    Dim dbsPubs As Database    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    Set dbsPubs = wrkJet.OpenDatabase("C:\db1.mdb",True, ,"pwd=123")
但是大不开，提示：
Microsoft Jet 数据库引擎打不开文件'C:\db1.mdb'。它已经被别的用户以独占方式打开，或没有查看数据的权限。请求解决办法！！

Answer 1

Set dbsPubs = wrkJet.OpenDatabase("",True, ,";Database=C:\db1.mdb;pwd=123")
或者True改为False。第二个参数是独占／共享打开

Answer 2

Public dbmain As Database
Set dbmain = OpenDatabase("", False, False, ";UID=admin;PWD=2011329hy;DATABASE=" & databasePath & "db1.mdb")

Answer 3

Set dbsPubs = wrkJet.OpenDatabase("C:\db1.mdb",False,False,"pwd=123")

Answer 4

Set dbsPubs = wrkJet.OpenDatabase("C:\db1.mdb",False,False,";pwd=123")