>>659
レスありがとうございす。
コードで追加するのですね。。目から鱗ですｗ
で、HELPや他のwebを眺めて、下記のようなサンプルなどを
取得しやってみたのですが、

Dim myCB As CommandBar
↑
ここの宣言で「ユーザ定義型は使用できません」となります。
On Error Resume Next
CommandBars("Sample").Delete
Set myCB = CommandBars.Add(Name:="Sample", _
Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
With myCB
.Controls.Add Type:=msoControlButton, ID:=21, before:=1
.Controls.Add Type:=msoControlEdit, before:=2
.Controls.Add Type:=msoControlDropdown, before:=3
.Controls.Add Type:=msoControlComboBox, before:=4
.Controls.Add(Type:=msoControlPopup, before:=5).Caption = "Popup"
.Visible = True
End With

参照設定のMS-ACCESS8 objectLibrayの指定はしてあるのですが、
原因はどこにあるかおわかりでしょうか？