下面的代码刚刚调试通过。
procedure TForm1.Button3Click(Sender: TObject);
var
adq:TADOQuery;
begin
adq:=TADOQuery.Create(nil);
adq.Connection:=ADOConnection1;
with adq do
begin
Close;
SQL.Clear;
SQL.Text:='Insert Into Test(iDateS,iDateE) Values(#1999-5-6#,#1999-5-7#)';
ExecSQL;
end;
end;