简单数据库密码登陆，权限设置，高手进来解答

begin
  button1.Tag:=button1.Tag+1;
    datamodule1.ADOQuery3.SQL.Text:='select qx from 计算机1005_29号_人员信息 where   '
     + 'xm=:r1 and mm=:r2';
    datamodule1.ADOQuery3.Parameters.ParamByName('r1').Value:=edit1.text;
    datamodule1.ADOQuery3.Parameters.ParamByName('r2').Value:=edit2.text;
    datamodule1.ADOQuery3.Prepared;
    datamodule1.ADOQuery3.Open;
   if datamodule1.ADOQuery3.eof then      //未找到对应账号密码
    begin
        ShowMessage('sorry');
        if button1.Tag=5 then       //超过5次失败退出窗口
        form6.close;
    end
    else
    begin
    if datamodule1.ADOQuery3.fieldByName('qx').asstring='管理员' then
    begin
      ShowMessage(datamodule1.ADOQuery3.fieldByName('qx').AsString+'登陆！');
      form6.Hide;
        form2.show;
    end
    else
    ShowMessage('你的身份是'+datamodule1.ADOQuery3.fieldByName('qx').AsString+',不能登陆');
    end;
end;delphi菜鸟小问，高手解答！！！
请问红色那段判断语句哪里错了，为什么我一直执行 else的showmessage（），前面那句都不会执行。
数据库里的数据都没错，编译也都能通过。