Public 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 Function OpenService() As String
Dim vrez As Variant
Dim stText As String

vrez = ShellExecute(0, "open", adhCurrentDBPath & ServiceApp, "", "", SW_MINIMIZE)
Select Case vrez
Case 2
stText = "Не найден файл программы обслуживания"
Case 3, 26
stText = "Не найдена директория программы обслуживания"
Case 11, 5, 27, 30, 29, 28, 32, 31, 8
stText = "Не возможен запуск программы обслуживания"
End Select
OpenService = stText
End Function