en las propiedades del grid busca RecordSource y pones el nombre del cursor o tabla luego busca RecordSourceType selecciona Alias o tabla
SELECT nombre_cursor o tabla
LOCATE FOR NombreDelCampoDondeQuieresbuscar = ALLTRIM(THISFORM.TxtBuscar.VALUE)
IF (FOUND())THEN
THISFORM.FrmReporteProducto.GrdReporte.SETALL("DynamicBackColor","iif(THISFORM.FrmReporteProducto.GrdReporte.activerow = THISFORM.FrmReporteProducto.GrdReporte.activerow, RGB(255,128,128),RGB(255,255,255))", "Column")
THISFORM.FrmReporteProducto.Grdreporte.SETFOCUS
ELSE
MESSAGEBOX ("Registro No encontrado",48,"No hay informacion")
THISFORM.FrmReporteProducto.TxtBuscar.SETFOCUS
ENDIF
ESPERO TE SIRVA.........