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

我的代码是:    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'。它已经被别的用户以独占方式打开，或没有查看数据的权限。请求解决办法！！

解决方案 »

  1.   

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

  2.   

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

  3.   

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

  4.   

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