[Kis]

Доброго дня всем! вывожу в DbGrid данные за дату выбранную в DateTimePicker1. Добавил второй DateTimePicker2, нужно сделать чтобы выводились данные за период времени между 1 и 2 DateTimePicker. Подскажите пожалуйста синтаксис. Вывожу из дб sql. таким образом:

Код:

procedure TForm1.reset(date: tdatetime);
var
s1,s2:string;
y,m,d:word;
begin
order_();
decodedate(form1.DateTimePicker1.Date,y,m,d);
date:=encodedate(y,m,d);
dm.ADODSmed.Active:=false;
s1:='select * from med_j, persons,podr where med_j.cperson = persons.nrec and persons.podr_L = podr.nrec ';
s2:=' and date = cast ('+quotedstr (datetostr (date))+' as datetime ) order by '+order;
dm.ADODSmed.CommandText:=s1+s2;
dm.ADODSmed.Active:=true;
end;