为何提示我不返回结果集？我没太多分数请各位见谅啊！

我用了TREEVIEW，下面的代码是删除与树接点选中内容相对应的一条记录，运行通过，但按下按纽就出现错误提示：adoquery commandtext does not return a result set.请教各位高手，怎么回事？
procedure TMainForm.btnDelDeptClick(Sender: TObject);
var
  str:string;
begin
  if Assigned(tvDeptList.Selected) then
  begin
    str:=string(pchar(tvDeptList.Selected.Data^));
    adoqrquery.SQL.Clear;
    adoqrquery.SQL.Add('DELETE  FROM DEPT');
    adoqrquery.SQL.Add('WHERE [Code] = '':DeptCode''');
    adoqrQuery.SQL.Text:=stringreplace(adoqrQuery.SQL.Text,':DeptCode',str,[rfreplaceall,rfignorecase]);
    try
      adoqrquery.Open;
    except
    end;
    adoqrquery.Close;
  end;
end;