Carregar Ribbons com ADODB

Um dos problemas nos Projectos ADP em Microsoft access é termos de carregar todas as Ribbons através do Método LoadCustomUI, Preferivelmente temos de o fazer através de uma função. O que podemos fazer é cria uma tabela com o RIBBONNAME e O RIBBONXML em dois campos, como o nome indica o Nome da ribbon e o XML Adjacente.

Aqui fica a Função

Public Function LoadRibbons() As Integer
Dim rst As New ADODB.Recordset
    On Error GoTo LoadRibbon_Err
        ‘ Try to load - open recordset on Ribbons
        rst.Open “SELECT * FROM z_MENUS_USysRibbons”, CurrentProject.Connection, _
            adOpenKeyset, adLockOptimistic
        Do Until rst.EOF
            Application.LoadCustomUI rst!RibbonName, rst!RibbonXML
            rst.MoveNext
        Loop
        ‘ Close out
        rst.Close
        Set rst = Nothing
        LoadRibbons = True
LoadRibbon_Exit:
    Exit Function
LoadRibbon_Err:
    LoadRibbons = False
    Resume LoadRibbon_Exit
End Function