Buscar coincidencias dentro de una cadena

Búsqueda de un nombre dentro de una cadena. Más ayuda en DAE.

				SELECT ALIAS()

GO TOP 

SCAN FOR LIKE('*'+UPPER(ALLTRIM(THISFORM.Text1.Value))+'*',UPPER(&cdato))

        IF MESSAGEBOX([Descripción :]+&cdato+CHR(13)+CHR(13)+;

                               [¿ Desea Continuar Buscando... ?],36,[Confirme])=6

            thisform.Refresh()

        ELSE    

            thisform.Refresh()

            EXIT 

        ENDIF    

ENDSCAN 

IF EOF()

   IF MESSAGEBOX([No se encontrarón mas coincidencias, vuelva a intentarlo...]+CHR(13)+;

              [          ¿ Desea ir al principio de la Tabla ?            ],36,[Aviso])=6

      GO TOP 

   ELSE 

      GO BOTTOM 

   ENDIF       

ENDIF 

thisform.Refresh()