como poner limite intentos login

[maur1c10]

lo he puesto de la sig. manera al ingresar contraseña correcta me dice que es incorrecta y despues de los tres intentos me da error (la parte roja)
aclaro mi tabla se llama usuario, el campo de contraseña se llama ClaveUsr y el campo de usuario
se llama LoginUsr

Código:

Option Compare Database
Dim Conn As ADODB.Connection
Dim rsCliente As ADODB.Recordset



Private Sub aceptar_click()
'MsgBox ("nombre" & nombre.Value)
Dim txtbusca, SQL, txtpass

txtbusca = login.Value
txtpass = pass.Value
SQL = "select ClaveUsr from Usuario where NivelUsr=0"
rsCliente.Source = SQL

rsCliente.Open , Conn, adOpenDynamic, adLockBatchOptimistic

If (Not rsCliente.EOF) Then
 MsgBox ("Login y password correctos. Bienvenido " & rsCliente.Fields.Item(0).Value)
  DoCmd.Close acForm, "Ingreso", acSaveNo
        DoCmd.OpenForm "Panel de control"
Else
MsgBox ("El login y/o password son incorrectos")
intento = intento + 1
If intento >= 3 Then End
rsCliente.Close
End If


End Sub
Private Sub cancelar_Click()
Form_Unload (1)
End Sub

Private Sub Comando5_Click()

End Sub

Private Sub Detalle_Click()

End Sub

Private Sub Form_Load()
    'MsgBox ("ANTES declarar nada")
    Set Conn = New ADODB.Connection
    Set rsCliente = New ADODB.Recordset
    
    'MsgBox ("ANTES CONECTAR PROVIDER")
    Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    'MsgBox ("ANTES CREAR DATASOURCE")
    Conn.ConnectionString = CurrentDb.Name
    'MsgBox (CurrentDb.Name)
    'MsgBox Conn.State
    Conn.Open
    'Conn.Open
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Form.Visible = False
    Conn.Close
    
    'MsgBox "Hasta la próxima"
End Sub