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