SendKeys "{F1}"

   Shell "C:\Windows\hh.exe ""Здесь полное название справочного файла.chm::/Имя файла темы.htm#Имя_закладки""", 3 

Private Sub btnHelp_Click()
' проверяется версия Access >= 2007
    If fnAccessVersion() >= 12 Then
' если >= 2007
        SendKeys "{F1}"
    Else
' если < 2007
    Dim a As String, b As String, c As String
' определяем путь к папке Windows
        a = fnBuildPath(fnGetWindowsFolder(), "hh.exe ")
' определяем путь к папке с файлом справки (папка с программой)
        b = fnBuildPath(CurrentProject.Path, "ONS.CHM")
' собираем строку и подключаем выбор раздела справки
        c = a & """" & b & "::/zadanie_familij_i_dolzhnostej_otvetstvennykh_ispolnitelej.htm#" _
        & "IDH_TOPIC_ZADANIE_FAMILIJ_I_DOLZHNOSTEJ_OTVETSTVENNYKH_ISPOLNITELEJ" & """"
' открываем справку на выбранном разделе
        Shell c    
    End If
End Sub

Public Function fnAccessVersion() As Single

    Dim strversion As String
    strversion = SysCmd(acSysCmdAccessVer)
    fnAccessVersion = CSng(Val(strversion))

End Function

'---------------------------------------------------------------------------------------
' Procedure : fnBuildPath
' DateTime  : 13.06.2006 14:24
' Author    : DSonnyh
' Purpose   : Создание строки путем слияния аргументов и добавления между ними \ (если его нет)
'---------------------------------------------------------------------------------------
'
Public Function fnBuildPath(strPath As String, strName As String) As String
' strPath - строка, имеющая смысл полного или относительного каталога
' strName - строка, имеющая смысл относительного имени каталога или файла
   On Error GoTo fnBuildPath_Error
    
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    fnBuildPath = objFSO.BuildPath(strPath, strName)
    Set objFSO = Nothing

   On Error GoTo 0
   Exit Function

fnBuildPath_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure fnBuildPath of Module objFSO"
    Set objFSO = Nothing

End Function

'---------------------------------------------------------------------------------------
' Procedure : fnGetWindowsFolder
' DateTime  : 22.10.2015 15:43
' Author    : DSonnyh
' Purpose   : Получение ссылки на объект Folder, связанный папкой Windows.
'---------------------------------------------------------------------------------------
'
' Назначение. Получение ссылки на объект Folder, связанный папкой Windows.
' Возвращает Объектную ссылку на объект типа Folder.
' objFSO - ссылка на созданный объект FileSystemObject
Public Function fnGetWindowsFolder() As String

    Dim sResult As String

    On Error GoTo fnGetWindowsFolder_Error
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    sResult = objFSO.GetSpecialFolder(0)
    Set objFSO = Nothing
    fnGetWindowsFolder = sResult

Exit_fnGetWindowsFolder:

    On Error GoTo 0
    Exit Function

fnGetWindowsFolder_Error:

     MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure fnGetWindowsFolder of Module mdl_FSO"
     Resume Exit_fnGetWindowsFolder

End Function 

' открываем справку на выбранном разделе
        Shell c, vbNormalFocus    

' открываем справку на выбранном разделе
        Shell c, 1