Dim MyMenu As Long
Dim a As Long

Private Sub Form_Load()
'a = манипулятор нужного меню, меню должноо быть видимым, 
    a = &H20424
'&H20424 в качестве моего примера, манипуляторы не постояны и при новом открытии Access меняются.
    SetParent& a, Me.Form.hwnd
    Parent = GetParent&(a)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetParent& a, Parent
End Sub


Declare Function SetParent& Lib  "user32"  (ByVal hWndChild As Long, ByVal hWndNewParent As Long)
Declare Function GetParent& Lib  "user32"  (ByVal hwnd As Long)

Private Sub Form_Load()
    EnumChildWindows& GetDesktopWindow, AddressOf EnumChildProc, ByVal  0 &
    ChildMyMenu = GetParent&(hwndMyMenu)
    SetParent& hwndMyMenu, Me.Form.hwnd
    
End Sub

Public hwndMyMenu As Long
Public ChildMyMenu As Long

Declare Function SetParent& Lib  "user32"  (ByVal hWndChild As Long, ByVal hWndNewParent As Long)
Declare Function GetParent& Lib  "user32"  (ByVal hwnd As Long)
Declare Function GetDesktopWindow Lib  "user32"  () As Long
Declare Function GetWindowText Lib  "user32"  Alias  "GetWindowTextA"  (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib  "user32"  Alias  "GetWindowTextLengthA"  (ByVal hwnd As Long) As Long
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim sSave As String
    'Get the windowtext length
    sSave = Space$(GetWindowTextLength(hwnd) + 1)
    'get the window text
    GetWindowText hwnd, sSave, Len(sSave)
    'remove the last Chr$(0)
    sSave = Left$(sSave, Len(sSave) - 1)
    If sSave <> "" Then
        If sSave = "Имя вашего меню" Then hwndMyMenu = hwnd
    End If
    'continue enumeration
    EnumChildProc =  1 
End Function