Открытие через Аксесс 2003 программы в ее родном приложении

' Win API "Открытие файла в его родном приложении"
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
 
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
 
Public Sub StartOfFile(strNameFile As String)
    Dim intResult As Integer
    Dim vTaskID
    intResult = ShellExecute(Application.hWndAccessApp, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
        If intResult = 31 Then
            vTaskID = Shell("rundll32.exe shell32.dll, OpenAs_RunDLL strNameFile", vbNormalFocus)
        End If
End Sub

Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "C:\DocWatcher.exe", "ПолныйПутьКФайлу"

Shell "C:\WINDOWS\CALC.EXE", 1  ' Пример из хелпа - запуск калькулятора
Shell "путь\DocWatcher.exe", 1

shell "excel.exe c:\temp\myfile.xls",1

Private Sub Кнопка52_KeyPress(KeyAscii As Integer)
Shell "C:\DocWatcher\DocWatcher.exe", 1
End Sub

Private Sub Кнопка53_KeyPress(KeyAscii As Integer)
Shell "C:\Windows\system32\calc.exe", 1
End Sub