menu CommandBars

Boa noite estou dentando colocar um menu suspenso no formulário da acesse usando o CommandBars mas não estou conseguindo, achei um exemplo do Excel conforme segue:

Application.CommandBars("cell").Reset
With Application.CommandBars("cell").Controls.Add(temporary:=True)
.Caption = "cadastro"
.OnAction = "cadastro cliente"
FaceId = 2
End With
Application.CommandBars("cell").ShowPopup

Tem como adaptar esse código para o acesse?

Bom dia Avelino, primeiro lugar que te parabenizar e dizer que sou um grande admirador de sus trabalho. Quanto ao menu esse seu é muito bom, excelente, mas o que eu quero é o menu de navegação tipo esse da imagem feito no Excel

up

up