Access - Sigue problema con cinta de opciones

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="LlamadaCinta">

  <ribbon startFromScratch="true">

    <tabs>

      <tab id="Pestaña01" label="Pestaña">

        <group id="grpGroup1" label="Informacion" >

          <button id="AbrPrueba" size="large" label="Info" imageMso="Info" onAction="BOTONES" />

          <button id="AbrOtro" size="large" label="Picture" imageMso="PictureEffectsGlowGallery" onAction="BOTONES" />

        </group>

      </tab>

    </tabs>

  </ribbon>

</customUI>

Option Compare Database

Public ribbonmenu As iribbonuI

Sub LlamadaCinta(ribbon As iribbonuI)

Set ribbonmenu = ribbon

End Sub

Public Sub BOTONES(control As iribboncontrol)

Select Case control.Id

Case "AbrPrueba"

DoCmd.OpenForm "FormPrueba"

Case "AbrOtro"

DoCmd.OpenForm "FormOtro"

End Select

End Sub