Access - comparaciones

SELECT NombreUsuario FROM Usuarios;

Private Sub NombreIngresado_AfterUpdate()

    Dim db As Database

    Dim rs As Recordset

    Dim nombreIngresado As String

    Dim encontrado As Boolean

    ' Obtén el valor ingresado en el campo

    nombreIngresado = Me.NombreIngresado.Value

    ' Abre la base de datos y la consulta de usuarios

    Set db = CurrentDb

    Set rs = db.OpenRecordset("ConsultaNombresUsuarios")

    ' Compara el nombre ingresado con los nombres de usuarios de la consulta

    encontrado = False

    rs.MoveFirst

    Do While Not rs.EOF

        If rs!NombreUsuario = nombreIngresado Then

            encontrado = True

            Exit Do

        End If

        rs.MoveNext

    Loop

    rs.Close

    Set rs = Nothing

    ' Si no se encontró el nombre, muestra un mensaje de error

    If Not encontrado Then

        MsgBox "Nombre de usuario no válido. Verifique e intente de nuevo.", vbExclamation, "Error"

        Me.NombreIngresado.Value = ""

        Me.NombreIngresado.SetFocus

    End If

    Set db = Nothing

End Sub