Problemas para ativar ribbon

Pessoal,

É me primeiro post aqui no fórum, não sei se essa é a área correta.
Estou criando um bd utilizando ribbons, mas como não tive condições de adquirir o Monta Ribbons do Avelino, estou utilizando um outro.
Peguei algumas funcionalidades do maestro, como o menu de login.
Mas está dando um erro ao tentar fazer login, quando abre a tela do depurador informa que a váriavel fncCrip não é valida.
Mas não encontro aonde devo colocá-la.

'Verificando senha (vbBinaryCompare permite diferenciar letras maiúsculas de minúsculas)
If StrComp(Me!Senha, fncCrip(.Column(2), 102030), vbBinaryCompare) = 0 Then

'repassa a identificação do usuário para a variável login
login.id = .Column(0) 'IdUsuário
login.Usuario = .Column(1) 'Nome do usuário

'esconde o formulário login
Me.visible = False
---------------------------------------------------------------------

Estou disponibilizando meu bd no link abaixo:

http://we.tl/HMcRvO3TSg

Já tentei de tudo, mas não consigo rodar essa ribbon.
Alguém poderia me ajudar?

Obrigado.

Procure no Arquivo Maestro do mestre avelino por esta função. Ela está faltando no seu banco de dados, por isto que está dando erro.

Encontrei dois erros no seu arquivo: o primeiro é o modulo de vinculação que não está vinculando todas as tabelas e o outro é o comando do botão Cancelar do form login que não está habilitado. Corriga estes erros para que o arquivo funcione corretamente.

Muito obrigado rubens.

Eu coloquei o módulo de vinculação que estava faltando e ativei o botão cancelar.
Mas agora está dando outro erro..

No módulo que carrega a Ribbon existe a declaração abaixo:

Public gobjRibbon As IRibbonUI

Public bolEnabled As Boolean    ' Used in Callback "getEnabled"
                                          ' Further informations in Callback "getEnabled"
                                          ' Fuer Callback "getEnabled"
                                          ' Genauere Informationen in Callback "getEnabled".
                             
Public bolVisible As Boolean    ' Used in Callback "getVisible"
                                        ' More information in Callback "getVisible
                                        ' Fuer Callback "getVisible"
                                        ' Further informations in Callback "getVisible

' Callbacks:

Sub OnRibbonLoad(ribbon As IRibbonUI)
   ' Callbackname in XML File "onLoad"

   Set gobjRibbon = ribbon
End Sub

Quando vai carregar a ribbon da um erro na linha Public gobjRibbon As IRibbonUI
Erro: O tipo definido pelo usuário não foi definido.

E não executa a macro OnRibbonLoad

Saberia me dizer o que pode ser?

Abaixo está o link para baixar o bd:

http://we.tl/CJloY0Cr4x

Desde já agradeço pela ajuda pessoal.