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