Verificação de Usuário

Olha eu de novo.

Pessoal, acho que a verificação esta correta, porém, apesar de as variaveis estarem iguais, sempre executa a mensagem "Usuario Incorreto".

Abaixo segue o código para verificação.

OBS: preciso que verifique o usuário e a senha separados.

ConsultaUsuario = "select usrlogin from cadusr" & " where usrlogin = '" & vUsuario & "'"
ConsultaSenha = "select usrsenha from cadusr" & " where usrlogin = '" & vUsuario & "'"

Set RsUsuario = AbreBanco.Execute(ConsultaUsuario)
vUsrBanco = Trim(RsUsuario.GetString)
Set RsSenha = AbreBanco.Execute(ConsultaSenha)
vSenhaBanco = Trim(RsSenha.GetString)

If vUsrBanco <> vUsuario Then 'Nesta linha, as variaveis vusrbanco e vusuario são iguais no brake point, porem é este bloco de código que é executado.
    MsgBox ("Usuário Incorreto!")
    tUsuario.Text = ""
    tUsuario.SetFocus
Else
    If vSenhaBanco <> vSenha Then
        MsgBox ("Senha Incorreta!")
    Else
        MsgBox ("Irá abrir o form principal!")
    End If
End If
End Sub