begin with ADOQuery1 do begin Filter :='Data=#'+DateToStr(DateTimePicker1.Date)+'#'; Filtered :=True; end;