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