InsertInto的异常,请帮忙，在线等，解决即结帖

D7+SQL Server2000,语句如下；with  ADOQuery2 do
  begin
  close;
  with sql do
  begin
  clear;
  add('insert into Rec(Card,Dev,[Date],Rec_sum,[Time]) values(:card,:dev,:date,:sum,:time)');
  adoquery2.Parameters.ParamByName('card').Value :=ADOQuery1.FieldByName('Card').Value ;
  adoquery2.Parameters.ParamByName('dev').Value :=device;
  adoquery2.Parameters.ParamByName('date').Value :=formatdatetime('YYYY-MM-DD',now);
  adoquery2.Parameters.ParamByName('sum').Value :=con_sum;
  adoquery2.Parameters.ParamByName('time').Value :=formatdatetime('hh:nn:ss',now);
  end;
  Open;错误提示如下：
ADOQurey2:CommandText does not return a result set但我在数据库中发现记录已经被成功添加进数据库了。请各位高手指教。