Всем доброе утро!
Я сделал меню на конкретное поле (Название поле - Номер_заказа):

Option Compare Database
Option Explicit
Private cb As Office.CommandBar
Private WithEvents cbb0 As Office.CommandBarButton

Private Sub Номер_заказа_GotFocus()
Set cb = Application.CommandBars.Add("CONTEXTMENU", msoBarPopup, False, True)
With cb
Set cbb0 = .Controls.Add(1, , , , True)
cbb0.Caption = Me.Номер_заказа
Me.Номер_заказа.ShortcutMenuBar = "CONTEXTMENU"
End Sub

Private Sub Номер_заказа_LostFocus()
cb.Delete
End Sub

Но при получение фокуса выдаёт ошибку:

Microsoft Visual Basic
Run-time error '5': Invalid procedure call or argument

Подскажите пожалуйста в чем ошибка?
Спасибо!

http://www.sql.ru/forum/1264559/oshibka-invalid-procedure-call-or-argument