求助：ACCESS打开另一个有密码的MDB文件

pyzl

B数据库有密码，我想打开A文件时，自动打开B文件，并关闭A文件，不用输入密码，用SHELL结合SENDKEYS可以做到，但是有些不稳定，有时会打不开，下面是另一种方法，也是我在论坛找的，运行没问题，我试过故意将密码打错，会弹出密码窗口要求输入密码，但是无论是怎么做，运行完后还是A文件是打开的，B.mdb没有打开，请高手指点一下，我错在哪里呢，还是这个是行不通的呢？先谢谢了！[:27]
Dim app As Application
strdb = CurrentProject.Path & "\B.mdb"
' 創建新的 Microsoft Access 實例。
Set app = CreateObject("Access.Application")
'app.CurrentDb.Close
app.OpenCurrentDatabase strdb, False, "401785@#."
app.Visible = True

pyzl

[:30] 自问自答，B.mdb加一个弹出窗体就没问题了
但是，此代码在OFFICE XP可以，在2000就不行
经再搜索得如下代码，好象是朱总的，传说2000可以通过，
但我运行出现“'ODBC--连接到D:\123\B.mdb'失败”，请高手搭救，谢了！
Dim appAccess As Access.Application
Dim db As Database
Dim STRDB As String
    ' 将字符串初始化为数据库的路径。

    STRDB = CurrentProject.Path & "\B.mdb"

    ' 创建 Microsoft Access 的实例。
    Set appAccess = CreateObject("Access.Application")
    ' 在 Microsoft Access 窗口中打开数据库。
    Set db = appAccess.DBEngine.OpenDatabase(STRDB, False, False, "WD=401785@#.")
   
    appAccess.OpenCurrentDatabase STRDB
   
    appAccess.Visible = True

pyzl

[:45] 还有用SENDKEYS的话，有时只输入一两个字符就停在那里了，很不稳定，唉，有没人帮帮我啊

liwen

Shell("MSACCESS.EXE """ & CurrentProject.Path & "\B.mdb"" /PWD 401785@#.")

象这样应该不用另外再输入密码，具体参数请参考帮助中的“命令行选项”。

只是好象打不开你的B