点击下载附件
如下图所示,第一个文件打开两个Data文件:
代码:
Private Sub Command57_Click()
'打开有密码的Access的文件
Dim Acc As New Access.Application
Acc.Application.OpenCurrentDatabase CurrentProject.Path & "\Data.mdb", , "123" '123是数据库密码
Acc.UserControl = True '用户激活新打开的文件
End Sub
Private Sub Command75_Click()
'打开没密码的Access的文件
Dim Acc As New Access.Application
Acc.Application.OpenCurrentDatabase CurrentProject.Path & "\Data无密码.mdb"
Acc.UserControl = True '用户激活新打开的文件
End Sub
效果演示: