como poner limite intentos login

[lokoman]

Hola!!
Intenta con este codigo:

Private Sub aceptar_click()
...
...
...
'EL SELECT LO ADAPTE A LA BD DE NORTHWIND, CAMBIALO A TU BD
SQL = "select * from Employees where EmployeeID=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)
...
...
...
Else
MsgBox ("El login y/o password son incorrectos")
intento = intento + 1
If intento >= 3 Then End
rsCliente.Close
End If

El codigo me funciona bien, nos cuentas!!