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
Then use the following to launch any document/file etc. If you pass it an Access filename it should launch Access, etc.
[code]
Private Sub LaunchApp(strFileName As String)
ShellExecute 0, vbNullString, strFileName, vbNullString, "C:\", 1
End Sub