This work only if the version of Access matches the version of Excel. How do
you detect the Access version being used?


Private Sub CommandButton5_Click() 'Go to customer database
Dim X As String
Dim nVer As Long

nVer = Val(Application.Version)

MainMenu.Hide

If nVer = 11 Then

X = Shell("C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE
\\SERVER3\database\Customers.MDB", 1)
Else

If nVer = 12 Then

X = Shell("c:\Program Files\Microsoft Office\Office12\MSACCESS.EXE
\\SERVER3\database\Customers.MDB", 1)

Else

If nVer = 9 Then

X = Shell("E:\Program Files\Microsoft Office\Office\MSACCESS.EXE
\\SERVER3\database\Customers.MDB", 1)

End If
End If
End If

Application.Goto Reference:="Company"
Range("A3").SelectX = Shell("d:\Program Files\Microsoft
Office\Office11\MSACCESS.EXE \\SERVER3\database\Customers.MDB", 1)
End Sub