Dim mainmenu As CommandBar
Dim cbmDemoMenu As CommandBarPopup
Dim db As Database
Set db = CurrentDb

Dim obj As ProgressBar
Set obj = Me.ProgressBar0.Object

Dim mainmenurs As Recordset
Set mainmenurs = db.OpenRecordset( "Select * from MENUMAIN" )

Dim subMenu As Recordset
On Error Resume Next
CommandBars( "dedal" ).Delete

Set mainmenu = CommandBars.Add(Name:= "dedal" , Position:=msoBarTop, MenuBar:=True, Temporary:=True)
CommandBars( "dedal" ).Position = msoBarTop
mainmenu.Visible = True

obj.Min =  1 
obj.Max =  8 

i =  1 
FROM MENUSUB; ")
Do While Not mainmenurs.EOF
   With mainmenu.Controls
            Set cbmDemoMenu = _
                 .Add(Type:=msoControlPopup)
                With cbmDemoMenu
                    .Caption = " & " & mainmenurs.Fields(1 )
                     Set subMenu = db.OpenRecordset("Select * from menusub where MAIN_MENU_ID =  " & mainmenurs.Fields(" MAIN_MENU_ID "))
                     Do While Not subMenu.EOF
                     With .Controls.Add(msoControlButton)
                        .OnAction = subMenu.Fields(" ACTION ")
                        .Caption = subMenu.Fields(" DESCR ")
                        .Tag = subMenu.Fields(" DESCR")
                     End With
                     subMenu.MoveNext
                    Loop
                subMenu.Close
               End With
        End With
    mainmenurs.MoveNext
obj.Value = i
i = i +  1 
Loop
mainmenurs.Close