【IT168 技术文档】

   1、只需打开,不需控制打开后的文件:
   Application.FollowHyperlink "D:\db1.mdb"

   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