сами кнопки есть, но не работают( а должны открывать определенные формы БД( вот что в OnAction писать не знаю( или мб что то еще надо сделать? уже больше суток сижу с этой БД "совокупляюсь" бошка уже взрывается(( плиз хелп.. желательно разжевать как для первоклассника(

Option Compare Database

Public Sub Form_Open()
Dim cbar As CommandBar
Dim Exist As Boolean
Exist = False
For Each cbar In CommandBars
If cbar.Name = "MainMenu" Then
Exist = True
Exit For
End If
Next cbar
If Not Exist Then
Set cbar = CommandBars.Add(Name:="MainMenu", _
Position:=msoBarTop, MenuBar:=True, Temporary:=False)End If
cbar.Enabled = True
cbar.Visible = True
With cbar
With .Controls
With .Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Добавить"
.Enabled = True
.OnAction = ""
End With

http://www.sql.ru/forum/1127543/kak-privyazat-formu-iz-access-k-makrosu-menu-nadstroek