🚀 go-pugleaf

Hola a tod@s

Quiero aprender a utilizar mejor access y tengo un problema con el
código siguiente. Es de un ejercicio de un libro que sirve para
empezar a programar en access 2000 pero yo estoy utilizando access
2003. El problema es que funciona bien pero solo con el primer
registro de la PrimeraTabla. Cuando pones el nombre de usuario y
contraseña del primer registro de la tabla sale el mensaje
"Enhorabuena..." Si introduces cualquier otro dato erroneo o correcto
siempre da el mensaje "Lo siento...."

El código es el siguiente. Saludos. Roberto.

Sub Logon()

'Declaración de variables

Dim NombreDeUsuario
Dim Contraseña
Dim qresult1
Dim qresult2

'Definición de variables

NombreDeUsuario = InputBox("Está programando en Access." & Chr(13) &
Chr(13) & "Por favor introduzca su nombre de usuario")
Contraseña = InputBox("Lo está haciendo bien" & Chr(13) & Chr(13) &
"Por favor introduzca ahora su contraseña")

'Ejecución de la consulta

qresult1 = DLookup("[NombreDeUsuario]", "PrimeraTabla",
"[NombreDeUsuario]=NombreDeUsuario")
qresult2 = DLookup("[Contraseña]", "PrimeraTabla",
"[Contraseña]=Contraseña")

'Procesado lógico

    If NombreDeUsuario = qresult1 And Contraseña = qresult2 Then
        MsgBox "Enhorabuena, ha sido identificado y puede continuar"
    Else
        MsgBox "Lo siento, hay un problema con su identificación.
Intentelo de nuevo otra vez."

    End If

End Sub