在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