[Resolvido]Ajuda função dlookup login

eu estou querendo modificar esse codigo com base em um consulta qryTemAcesso se alguém poder da uma olhada no banco de dados muito obrigado
obs:busca dados em um consulta



VerificaUsuario = DLookup("Login", "Login_senha", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox
SenhaDoUsuario = DLookup("Senha", "Login_senha", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox

Ola;

A sua combobox apenas tem uma coluna, por isso não deve referenciá-la, basta apenas;

VerificaUsuario = DLookup("Email", "qryTemAcesso", "Email = '" & Me.txtLogin & "'")
SenhaDoUsuario = DLookup("Senha", "qryTemAcesso", "Email= '" & Me.txtLogin & "'")

E tinha muitos nomes de forms errados e da txtLogin;


Private Sub cmdConfirmar_Click()
Dim VerificaUsuario As Variant 'declaramos a variavel VerificaUsuario do tipo variant
Dim SenhaDoUsuario As Variant 'declaramos a variavel SenhaDoUsusario do tipo variant
Dim rst As Recordset

VerificaUsuario = DLookup("Email", "qryTemAcesso", "Email = '" & Me.txtLogin & "'")
SenhaDoUsuario = DLookup("Senha", "qryTemAcesso", "Email = '" & Me.txtLogin & "'")

Set rst = CurrentDb.OpenRecordset("SELECT Cargos FROM Funcionário WHERE Email='" & VerificaUsuario & "'")

   'Verifica se o Usuário Existe
   If IsNull(VerificaUsuario) Then
       MsgBox "O Usuário informado não existe neste Sistema!", vbCritical, "Usuário Inválido"
   Else
   'Verifica se a Senha Confere
       If Me.txtLSenha = SenhaDoUsuario Then
          Select Case rst!Cargos
                   Case Is = 3
             DoCmd.Close acForm, "frmLogin"
             DoCmd.OpenForm "frmDirigentesFiliais"
                   Case Is = 1
             DoCmd.Close acForm, "frmLogin"
             DoCmd.OpenForm "frmSupervisoresMontagemVeiculo"
                   Case Is = 4
             DoCmd.Close acForm, "frmLogin"
             DoCmd.OpenForm "frmGerentesSetorFinanceiro"
                   Case Is = 5
             DoCmd.Close acForm, "frmLogin"
             DoCmd.OpenForm "frmAdministração"
           End Select
       Else
           MsgBox "A Senha que você digitou está incorreta, por favor, tente novamente!", vbCritical, "Senha Inválida"
       End If
   End If
rst.Close
End Sub

muito obrigado JPaulo
que deus o abençoe muito mais
valeu

Obrigado pelo retorno o forum agradece.