Máximo de intentos permitidos

Mira lo que deseo hacer el poner un limite de intentos al usuario que se esta logeando, espero me puedas ayudar. Tengo este código pero mi contador no pasa de uno y no se cumple la condición.
Int  contador // variable para almacenar el maximo de errores
int row
select count(idusuario) into :row From Cat_Usuario where Nombre_usuario=:sle_usuario.text and contrasenia=:sle_contra.text
USING SQLCA;
IF row>0 then
    select idusuario into :idusuario
    From Cat_Usuario
    where Nombre_usuario=:sle_usuario.text and contrasenia=:sle_contra.text USING SQLCA;
    close(iniciosesion)
    open(principal)
    open(cargando)
   ELSE
        contador ++
         if contador < 3 then
            messagebox("ERROR","Datos Ingresados Incorrectos, intento Nº : " + string(contador), information!)
              sle_usuario.setfocus( )
        end if
       if contador>=3  Then
            // Mostraremos un mensaje
            MessageBox("Mensaje", "A excedido el limite de intentos permitivos", StopSign!)
                // Cerramos toda la aplicacion
            Halt Close
         End If
End If