Private Sub OpenDB()
    Dim strDB As String
    ' 將字符串初始化為數(shù)據(jù)庫(kù)的路徑。
    strDB = CurrentProject.Path & "\db2.mdb"

    ' 創(chuàng)建 Microsoft access 的實(shí)例。
    Set appAccess = CreateObject("access.Application")
    ' 在 Microsoft access 窗口中打開數(shù)據(jù)庫(kù)。
    Set db = appaccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=123")
    appaccess.OpenCurrentDatabase strDB
    appaccess.DoCmd.OpenForm "form1"
    
    appaccess.Visible = True
End Sub