FoxPro/Visual FoxPro - referente a contraseña

hola.
tengo las siguientes lineas:

IF THISFORM.TEXT1.VALUE="mi_contraseña"
USE mi_tabla
DO FORM abmempresa
ELSE
MESSAGEBOX ("contraseña incorrecta")
ENDIF

Quisiera saber como hago, en el caso que la contraseña sea incorrecta, para que se vuelva a ejecutar este prg. una determinada cantidad de veces.
Mis mayores respetos para todos y gracias.

Agrega una propiedad a tu formulario donde puedas ir incrementando los intentos. Y cada vez que de error muestras el mensaje y haces thisform.intentos=thisform.intentos+1
Luego, cuando notes que ya se cumplieron las veces que tú deseas, le quitas el acceso y lo sacas de la aplicación.

simplemente despues del mensaje de clave incorrecta pones:
thisform.text1.setfocus y te vuelve a pedir que ingrese la clave,
to tengo dos botones aceptar y cancelar , con cancelar salgo del sistema,
con aceptar comparo claves y entro al sistema
saludos

que tal !!
hice como me indico Alberto Mancuso y funciona. El unico problema es que el cursor no me vuelve a aparecer en el TEXT1..........si alguien puede, ayudeme y muchas gracias............................ruben

F THISFORM.TEXT1.VALUE="mi_contraseña"
USE mi_tabla
DO FORM abmempresa
ELSE
MESSAGEBOX ("contraseña incorrecta")
NODEFAULT
return .f.
ENDIF