Displaying user-created menubar via automation

[waschbaer2]

Hi!

I want to open an Access database via automation from Excel. Then I
want to
display a user-created menubar. How can I achieve that?

I use the following code for opening and displaying the Access window:

Dim AObj As Access.Application 'Access Object
Set AObj = CreateObject("Access.Application")
ShowWindow AObj.hWndAccessApp, SW_MAXIMIZE
SetWindowPos AObj.hWndAccessApp, 0, 0, 0, 100, 0, SWP_HIDEWINDOW

AObj.OpenCurrentDatabase (filename)

ShowWindow AObj.hWndAccessApp, SW_MINIMIZE
SetWindowPos AObj.hWndAccessApp, 0, 0, 0, 100, 0, SWP_SHOWWINDOW
ShowWindow AObj.hWndAccessApp, SW_MAXIMIZE

' -- Code for displaying user-created menubar?

Thanks in advance,
Markus