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



Function my_funSysOpenFile(strFileName As String)
   Const SW_SHOWNORMAL =  1 
   
   Call ShellExecute( _
       hWndAccessApp, _
       vbNullString, _
       strFileName, _
       vbNullString, _
        "C:\" , _
       SW_SHOWNORMAL)
End Function

Function Shell_File()
Call my_funSysOpenFile( "C:\myPapka\myFile.doc"  или что угодно) ' - запуск
End Function