2、打开后可控制所打开数据库及其中的对象:

'当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。
Dim appAccess As Access.Application

Sub CreateForm()
'打开D:\DB1.MDB文件并创建一个窗体之后关闭
Const strConPathToSamples = "D:\"
Dim frm As Form, strDB As String
'把文件路径赋给变量
strDB = strConPathToSamples & "db1.mdb"
' 创建一个新的Access对象
Set appAccess = CreateObject("Access.Application")
' 打开指定的Access文件
appAccess.OpenCurrentDatabase strDB
'用下面这句可显示被打开的文件,否则不显示
appAccess.Visible = True
' 创建新窗体
Set frm = appAccess.CreateForm
' 保存新窗体
appAccess.DoCmd.Save , "NewForm1"
' 关闭Access文件
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub