方法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