Question

Access数据库问题

请问底下代码，要是有密码的数据库，我该怎么写？？？
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Private Sub Command2_Click()
Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase App.Path & "\zhan1616.mdb"
objACC.DoCmd.OpenReport "中国"
objACC.Quit
Set objACC = Nothing
End Sub

Answer 1

Dim appAccess As Access.Application
Dim db As Database

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