cFilt = "MyTable.Field = "+ALLTRIM(STR(this.Value)) && if the value of the combo is numeric cFilt = "MyTable.Field = '"+ALLTRIM(this.Value)+"'" && if the value of the combo is string SELECT (thisform.Grid1.RecordSource) SET FILTER TO &cFilt GO TOP thisform.Grid1.Refresh()but depending of number of records of that table this may be a very slow method
thisform.Grid1.RecordSource = "SELECT * FROM YourTable WHERE KeyField = "+this.Value thisform.Grid1.Refresh()