FoxPro/Visual FoxPro - Ayuda por favor...

Hola saludos a todos...
Tengo un TextBox que al darle ENTER realiza un proceso, el asunto es que al terminar ese proceso necesito que el cursor se vaya nuevamente al Text Box y no se como hacerlo. En el Lostfocus del TextBox he puesto el siguiente codigo :

dato=thisform.text1.value

Sele 1
locate all for cliente=val(alltrim(dato))
if !found()
wait 'registro no encontrado...' windows nowait
thisform.text1.value=''
thisform.text1.setfocus
endif

Pero no me funciona, si alguien puede ayudarme se lo agradecere.

hola francisco, puedes poner el sgte codigo "return(0)". ejemplo:
if found()
mensaje
return(0)
endif

probalo!!

dato=thisform.text1.value

Sele 1
locate all for cliente=val(alltrim(dato))
if !found()
wait 'registro no encontrado...' windows nowait
thisform.text1.value=''
NODEFAULT
endif