>Hi Nadya,
>
>Long time, without talking...:)
>
>I try your code but something is mess me,
>
>my SAVE Method
>

>WITH THISFORM
>	llOK=.oCliente.SAVE(.ORS0)
>	IF not llOK
>		.ADO_FINDFIELDERROR(.oCliente.lcFieldError)
>	ENDIF
>
>	.InitVars()
>ENDWITH
>

>my ADO_FINDFIELDERROR with your example,
>

>LPARAMETERS cFieldError
>if type('thisform.txt'+cFieldError)="O" && Object exists
>    loObject = evaluate('thisform.txt'+cFieldError)
>    loObject.SetFocus()
>endif
>

>The Form clears and not set the focus...Any ideia....
>
>
>Thank's for your time,
>
>João Batista

What InitVars() method does? You probably should return earlier and not execute this method in case of error...

Try to suspend after set focus line and see, what happens...