Фильтровка и редактирование БД

[rainbow]

Есть БД Access, в ней есть данные, я написал при запуске программы отфильтровывать данные по дате, выбранной в DateTimePicker, и мне надо добавлять данные в уже отфильтрованную таблицу, и чтобы дата записывалась в таблицу DBGrid и соответственно в базу в поле Дата, с DateTimePicker. Я сделал это, но когда я начинаю добавлять данные в таблицу вручную в DBGrid в строку, где уже выбрана дата, у меня получаеться в БД почему то чисто пустая строка только с датой и следующая строка с данными, но без даты.
Вот код процедуры, добавляющей в поле Дата c DateTimePicker:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
DataModule2.ADOTable1.Filtered:=true;
DataModule2.ADOTable1.Filter:='Дата='+datetostr(datetimepicker1.Date);
if Datamodule2.ADOTable1.Modified then
DataModule2.ADOTable1.Post;
DataModule2.ADOTable1.Edit;
DataModule2.ADOTable1.FieldByName('Дата').AsString:=DateToStr(DateTimePicker1.Date);
end;

[mihali4]

Вот это

if Datamodule2.ADOTable1.Modified then
DataModule2.ADOTable1.Post;

перенесите в самое начало процедуры.