Hello guys , I have this code
Set cbCat = CommandBars.Add(conBarName, msoBarPopup, False, False)
Set cbCatCtrl = cbCat.Controls.Add(msocontrolpopup)
cbCatCtrl.Caption = "Open Form"
Do While Not rsForms.EOF
Set cbObjectCtrl = cbCatCtrl.Controls.Add()
With cbObjectCtrl...