No se a definido la variable

[erDanielillo]

Wenos dias, tengo el siguiente codigo para crearme una barra nueva de herramientas en el access, y me da el error de no se ha definido variable, Os dejo el codigo y espero q me podias ayudar

Public Sub ap_NuevoMenú()

Dim cmdNuevo As CommandBar
Dim cmcNuevo As CommandBarButton
On Error GoTo err_ap_NuevoMenú

Set cmdNuevo = CommandBar.Add(Name:="Cool", Position:=msoBarTop, Temporary:=True)
With cmdNuevo
.Visible = True
Set cbcNuevo = .Controls.Add(Type:=msoControButton, Temporary:=True)
With cbcNuevo
.caption = "Boton1"
.FaceId = 70
.Tag = "Boton1"
End With
Es una parte del codigo....

El fallo me lo da en cuando le asigno al cmdNuevo el CommandBar q me dice q commandBar no se ha definido variable :S:S Y la tengo arriba declarada

Un saludo y gracias