在ACCESS2000中如何用VBA代码打开一个带有密码的数据库

Private Sub OpenDB()
    Dim strDB As String
    ' 将字符串初始化为数据库的路径。
    strDB = CurrentProject.Path & "\db2.mdb"

    ' 创建 Microsoft access 的实例。
    Set appAccess = CreateObject("access.Application")
    ' 在 Microsoft access 窗口中打开数据库。
    Set db = appaccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=123")
    appaccess.OpenCurrentDatabase strDB
    appaccess.DoCmd.OpenForm "form1"
    
    appaccess.Visible = True
End Sub