FoxPro/Visual FoxPro - ayuda buscar y selecional una fila de un grid

PRIVATE ccadena, nregistro, i,  ;

        lencontro

ccadena = ""

*.Una pantallita donde pongo un campo text el cual es mi cadena a buscar

DO FORM FormaBusqueda TO ccadena

ccadena = ALLTRIM(ccadena)

lencontro = .F.

IF  !EMPTY(ccadena)

     nregistro = RECNO("cuDetFacturas")

     FOR i = 1 TO 2

          IF i > 1

               nregistro = 0

          ENDIF

              SELECT RECNO() FROM cuDetFacturas  ;

                      WHERE ALLTRIM(nomprv_cpd) +  ALLTRIM(codprv_cpd) + ALLTRIM(numfac_cpd)  ;

                      LIKE "%" + ccadena + "%" ;

                      AND RECNO() <> nregistro  ;

                      ORDER BY 1  ;

                      INTO ARRAY _vrencocuanti

          IF _TALLY > 0

               GOTO _vrencocuanti[1] IN cuDetFacturas

               ThisForm.Compageframe1.Page1.Pddetfaccxp1.Grid.Refresh

               RELEASE _vrencocuanti

               lencontro = .T.

               EXIT

          ENDIF

     ENDFOR

ENDIF

IF  !lencontro

     = MESSAGEBOX("No se encontro el dato seleccionado.", 48, "")

ENDIF