数据插入出现异常问题

Question

过程代码如下
procedure TAddDpt.Insert(DptNo, DptName, DptMark: string);
var
  strsql:string;
begin
  strsql:='insert into department ([组室编号],[组室名称],[备注]) values (:DptNo,:DptName,:DptMark)';
  with QrAddDpt do
  begin
    Connection:=MyDataModule.ConnServer;
    Active:=false;
    SQL.Clear;
    SQL.Add(strsql);
    Parameters.ParamByName('DptNo').Value:=DptNo;
    Parameters.ParamByName('DptName').Value:=DptName;
    Parameters.ParamByName('DptMark').Value:=DptMark;
    Prepared;
  end;
  try
    QrAddDpt.Active:=true;
    QrAddDpt.ExecSQL;
  except
    ShowMessage('数据插入出错!!!');
  end;
end;
执行时出现的异常如下
---------------------------
Debugger Exception Notification
---------------------------
Project SchoolManage.exe raised exception class EDatabaseError with message 'QrAddDpt: CommandText does not return a result set'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
ExecSQL不是不用返回数据集的嘛，怎么解决啊？

Answer 1

QrAddDpt.Active:=true;  这一句 不要他

Answer 2

Agree with surdon(ャ野马ャ)，Please Delete the line:
  QrAddDpt.Active:=true;