方法1：
Dim AccessPath As String
Dim DbPath As String
AccessPath = SysCmd(acSysCmdAccessDir) &"MSACCESS.EXE"
DbPath = "C:\db1.mdb"
Shell AccessPath &" " & DbPath
方法2：
Dim DbPath As String
DbPath = "C:\db1.mdb"
Application.FollowHyperlink DbPath
方法3：
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub OpenBd()
Dim DbPath As String
DbPath = "C:\db1.mdb"
ShellExecute 0&, vbNullString, DbPath, vbNullString, vbNullString, 0&;
End Sub
方法4：
Dim DbPath As String
Dim oApp As Access.Application
DbPath = "c:\db1.mdb"
Set oApp = New Access.Application
With oApp
.Visible = True
.OpenCurrentDatabase DbPath
.DoCmd.OpenForm "MyForm"
.DoCmd.OpenReport "MyReport", acViewPreview
.Run "MyFuncion"
End With
Set oApp = Nothing
