CASE .cboOrder.ListIndex = 5 && Quote Date (dQuote) LOCAL ldQuote AS Date ldQuote = CTOD(ALLTRIM(UPPER(.txtSearchBy.Value))) SELECT ; RECNO() AS Rec_No, ; QuoteID, ; CustPartNo, ; Proj_Name, ; Cust_Name, ; dQuote, ; Material1 ; FROM Quotes ; WHERE UPPER(dQuote) = ldQuote ; INTO CURSOR tmpQuotes2 SELECT tmpQuotes ZAP IN tmpQuotes APPEND FROM DBF("tmpQuotes2") LOCATE ENDCASE .grdFindQuote.Refresh() .grdFindQuote.SetFocus() ENDWITH