Option Compare Database
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(File_Name) ' - запуск файла
End Function