Descr = UPPER(thisform.text2.Value) lcSave = thisform.grid1.RecordSource thisform.grid1.RecordSource = "" SELECT Name, MA, Buyer, Item, Pack, Size, Brand, Descriptio as Description; FROM sporder; where descriptio like DESCR ; ORDER BY Description; into CURSOR sorder thisform.grid1.RecordSource = lcSave thisform.grid1.recordsource = "sorder"