ADOQuery1.SQL.Text:='SELECT * FROM '+PageControl1.ActivePage.Caption+' WHERE [Сроки исполнения] < #'+DateToStr(d1)+'#';