CommandBar y CommandBarButton

[erDanielillo]

muy wenas!! Tengoe l siguiente dilema jejej quiero acer una nueva barra de herramienta en q aparezcan algunos comando en otro odenador funcionaba bien y en este me da error os dejo aqui una parte del codigo y os digo onde me falla..



Dim cbr As CommandBar
Dim btn As CommandBarButton

On Error Resume Next
CommandBars("Nombre").Delete
On Error GoTo 0
Set cbr = CommandBars.Add("Nombre", msoBarTop, True, True)
Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Database").Controls("Guardar").Id)
DoCmd.RunCommand acCmdSave

(Aqui es donde me falla) Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Database").Controls("Primer registro").Id)
With btn
.BeginGroup = True
.OnAction = "cmdFirst_Click"
End With


Espero vuestra ayuda y un saludo