CommandText does not return a result set. 怎么处理

procedure Tloginform.ButtonokClick(Sender: TObject);
begin
  with dm do
begin
  adoconnection1.Connected:=true;
  adoquery1.parameters.parambyname('yhm').value:=trim(edituser.text);
  adoquery1.parameters.parambyname('mm').value:=trim(editpassword.text);
  adoquery1.open;
    if adoquery1.recordcount>=1then
      begin
        adoquery1.Close;
        close;
      end
    else
      begin
        application.MessageBox('请确认用户名和密码！','用户身份验证失败',mb_ok);
        adoconnection1.connected:=false;
      end;
end;

end;

 

 

报错显示：project lengguanli.exe raised exception class edatabaseerror with message 'adoquery1:commandtext does not return a result set'.process stopped.use step or run to cntinue.