[Страдалецъ]

А что касается добавления в таблицу, то тут я дал маху, надо эту ситуацию в DateTimePicker1Change обрабатывать:

Код:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
 if AdoQuery1.FieldByName('MyDate').AsDateTime <> DateTimePicker1.DateTime
 then begin
      if AdoQuery1.State <> dsInsert
      then AdoQuery1.Edit;
      AdoQuery1.FieldByName('MyDate').AsDateTime := DateTimePicker1.DateTime;
      if AdoQuery1.State <> dsInsert
      then AdoQuery1.Post;
      end;
end;