LOCAL m.ldDate
WITH THISFORM
    .grid1.RecordSource = ''
    m.ldDate = TTOD(.Olecontrol1._Value)
    SELECT * FROM tblOrder INTO CURSOR curOrderOnDate NOFILTER ;
       WHERE OrderDate = m.ldDate
    WITH .grid1
           .RecordSource = 'curOrderOnDate'
          .Column1.ControlSource = 'curOrderOnDate.Filed1'
          .Column2.ControlSource = 'curOrderOnDate.Filed2'
          .Column3.ControlSource = 'curOrderOnDate.Filed3'
*-- И так далее со всеми колонками, которые необходимо просматривать
    ENDWITH
    .Refresh()
ENDWITH