veo que tienes un formulario con el que quieres identificar a un usuario desde los datos de usuarios y contraseñas que están en una tabla

Para esto estás utilizando la función DLookup en tu código para obtener un dato de la base de datos

al probarlo una vez me dice que he superado el número de intentos y me cierra el formulario

no sé si es esto lo que no funciona, imagino que sí.

comprueba la condición que está comparando el número de intentos:

             If auxContraseña <> Me.TxtPassword.Value Then

                   If NumIntentos > 1 Then

                         NumIntentos = NumIntentos - 1

Parece que es una cuenta atrás, que en cada intento fallido resta uno.

El problema es que esa variable NumIntentos no tien valor y la toma como 0, porque no le has asignado valor.

Puedes asignar valor inicial a esta variable por ejemplo cuando se cargue el formulario, así ya tendrá un valor cuando pulses el botón de iniciar sesión:

(en el evento Load del formulario)

Private Sub Form_Load()

    NumIntentos = 3

End Sub