>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 >