LcSQL = "select distinct(a.tiffile), b.docindex_i from ocrdata a, docudeck b ;
where a.tiffile = b.file_name ;
And a.OCDATA like '% + alltrim(thisform.text5.value)+%' ;
Order By a.ID into Cursor lcSource"

&LcSQL

with thisform.grid1
.RecordSource = ""
.RecordSourceType = 1 && Alias &&4 && SQL
.RecordSource = "lcSource"
endwith