Dim db2_path As String '另外一个数据库文件的路径
db2_path = CurrentProject.Path & "\db2.mdb" '要求打开的文件相对路径
Dim mypassword As String '将要打开数据库的密码
mypassword = "123"
Dim new_db '用于创建文件
Set new_db = CreateObject("access.application") '创建一个新的ACCESS文件
new_db.OpenCurrentDatabase db2_path, False , mypassword '在新文件中打开数据库文件
'MsgBox "[db2] 的 [窗体1] 已经打开,本数据库即将关闭!" '提示
'new_db.UserControl = True '用户激活新打开的文件
'new_db.DoCmd.OpenForm "窗体1" '打开指定的窗体
'Application.Quit '关闭当前的文件