FoxPro/Visual FoxPro - Problema con buscar

Hola amigos tengo un problema que esta por volver loco, les explico.
tengo un formulario con un textbox y un grid. Lo que hago es buscarcar en el text un articulo. lo hago asi.

En el metodo "InteractiveChange"

LOCAL lc, lnRecno
SELECT Articulos
lc = ALLT(THIS.VALUE)
lnRecno = RECNO()
IF articulos.desartic >= lc
IF NOT BOF()
SKIP 1
ENDIF
IF articulos.desartic > lc && debe quedar donde estaba
IF lnRecno <= RECC()
GO RECNO()
ELSE
GO BOTT
ENDIF
RETURN
* ENDIF
IF NOT EMPTY(ORDER()) && busqueda con indice
SEEK lc
ELSE
GO TOP
LOCATE REST FOR articulos.desartic=lc WHILE articulos.desartic <= lc NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR articulos.desartic=lc WHILE articulos.desartic <= lc NOOPTIMIZE
ENDIF

IF lnRecno # RECNO()
THISFORM.buscar.grid1.SETFOCUS
THISFORM.buscar.txtCiudades.SETFOCUS
ENDIF
RETURN

Pero que pasa cuando estoy en el programa de vox probando me funciona de mil maravillas pero cuando creo un ejecutable y luego lo ejecuto. La primera ves me busca genial pero despues al volver a intentarlo me envia al ultimo registro y de ahi no se mueve. Y no se porque hace eso si me podrian ayudar saludos