Select * from trans1 into cursor csrmyCursor readwrite where .F. SELECT csrMyCursor With thisform.Grid1 .RecordSource = "csrMyCursor" .Column1.ControlSource = "csrMyCursor.bookno" .Column2.ControlSource = "csrMyCursor.sticket" .Column3.ControlSource = "csrMyCursor.eticket" append blank .Refresh() ENDWITH