"Microsoft Access includes command bars, which are programmable toolbars and
menu bars. Using command bars, you can create custom toolbars and menus for
your application."
Dim cmb As CommandBar
Set cmb = Application.CommandBars.Add("MyCommandBar")
Dim cbc As CommandBarControl
Set cbc = cmb.Controls.Add(msoControlButton)
cbc.Caption = "Button1"
cbc.Style = msoButtonCaption