2 вопроса по использованию контролов из MS Office 10 Object Library:
Имеется строка меню под названием "РабочееМеню". Програмно создаю новое меню "Отчеты", который заполняю названиями отчетов:

Dim РабочееМеню As CommandBar, ПунктМеню As CommandBarPopup, Подменю As CommandBarControl

Sub asdфыв()
Dim db As Database, ВсеОтчеты As Container, отчет As Document
Set db = CurrentDb
Set ВсеОтчеты = db.Containers!Reports
Set РабочееМеню = CommandBars("РабочееМеню")
Set ПунктМеню = РабочееМеню.Controls.Add(msoControlPopup, 1)
ПунктМеню.Caption = "Отчёты"
For Each отчет In ВсеОтчеты.Documents
If Not отчет.name Like "Подчинен*" Then
Set Подменю = ПунктМеню.Controls.Add(msoControlButton)
Подменю.Caption = отчет.name
Подменю.OnAction = "fdkh"
End If
Next
End Sub

Так вот, вопрос 1: а имеется ли у меню "Отчеты" (msoControlPopup) события? конкретно нужно отследить нажатие на него левой кнопкой мыши/либо ентером
Вопрос 2: свойство OnAction у пункта меню - текстовое. А хотелось бы передавать в него значения (конкретно - Caption). Конструкции "fdkh(" & Подменю.Caption & ")"не проходят. Это никак нельзя сделать?
В целом хотелось бы при нажатии на меню "Отчеты" динамически заполнять его, ну, и чтоб нормально все работало. Промучался долго, и пока что пришел к выводу, что надо либо использовать контролы других производителей, либо юзать функции апи - а здесь я слаб.
Подскажите, куда рыть.