Mira tengo un problema con este codigo quisiera que me ayudaras porfavor:

xx=3

Locate for upper(alltrim(usuarios. Usuario))=upper(alltrim(thisform.txtusuario.value))
if found() and alltrim(clave)==alltrim(thisform.txtpasw.value)
#define _mensaje01 "la contraseña de ingreso al sistema es correcta"
=messagebox(_mensaje01)

Do form frmpagos
thisform. Release

Else
if xx > 0
messagebox("El nombre de Usuario o la Contraseña no son correctos",16,"Sistema")
thisform.txtpasw.value=""
thisform.txtpasw.setfocus
xx = xx + 1
else
messagebox("Usted a intentado entrar al sistema ingresando claves incorrestas, por seguridad el sistema se cerrara")
thisform. Release
endif
endif


Algo le falta cuando ingreso la clave mas de 3 veces no pasa nada quiero que el formulario se cierre gracias.