Select sticket,eticket,NOOFTICKET,BOXNO,shipno,trans_type from trans1 ; WHERE UPPER(shipno)=ALLTRIM(thisform.text1.Value) ; into cursor csrmyCursor readwrite SELECT csrmyCursor With thisform.Grid1 .RecordSource = "csrmyCursor" .Columncount = 7 .Column1.ControlSource = "csrMyCursor.bookno" .Column2.ControlSource = "csrMyCursor.sticket" .Column3.ControlSource = "csrMyCursor.eticket" .Column4.ControlSource = "csrMyCursor.noofticket" .Column5.ControlSource = "csrMyCursor.boxno" .Column6.ControlSource = "csrMyCursor.shipno" .Column7.ControlSource = "csrMyCursor.trans_type" .Refresh() ENDWITH