用代碼打開Access文件的兩種方法

　　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