Módulo de classe e Módulo Padrão

Baixei um arquivo aqui de login com senha e instalei normalmente,porém hoje qdo fui enviar por email o front end para o cliente, ao abrir ele deu a seguinte mensagem:



O BD tem um modulo chamado Login_senha com o seguinte código (percebi que eu tinha colocado a linha Option Explicit como comentário, talvez seja isso):

Option Compare Database
Option Explicit
Private strUsuarioAtual As String

Function verificaLogin(argLogin As String, argSenha As String) As Boolean

Dim criterio As String

criterio = "Login='" & argLogin & "' And senha='" & argSenha & "'"

If Nz(DCount("Login", "Tbl_Usuario", criterio), 0) > 0 Then
verificaLogin = True
setUsuarioAtual argLogin
Else
verificaLogin = False
End If

End Function

Sub setUsuarioAtual(argUsuario As String)
strUsuarioAtual = argUsuario
End Sub

Function getUsuarioAtual() As String
getUsuarioAtual = strUsuarioAtual
End Function


E um formulário onde o usuário escolhe o nome, digita senha e clica no botão entrar, que possui o seguinte código:

Private Sub BtnLogin_Click()

If Not IsNull(CBox_Usuario) And Not IsNull(Txt_Senha) Then
If verificaLogin(CBox_Usuario, Txt_Senha) Then

If (Txt_Senha) = "123" Then

DoCmd.Close
DoCmd.OpenForm "Frm_Login_NovaSenha"
Else
DoCmd.Close
DoCmd.OpenForm "Frm_Master"

End If
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
Txt_Senha = ""
Txt_Senha.SetFocus
End If
End If

End Sub

Paulo

O Access está informando que não encontrou a combobox de nome CBox_Usuario

Verifique se não mudou o nome dela acidentalmente.

Abraços

Noob