Data Module里用ado连接数据库的 连接成功了，窗体名dmPer ADO连接名acPer

但是我通过以下代码访问，出现错误 


procedure TfrmLogin.btnOKClick(Sender: TObject);
var
    Query : TADOQuery;
begin
  case radiogroup1.ItemIndex of
  0:
  try
        //检查操作人员表中是否有匹配记录
        Query := TADOQuery.Create(nil);
        Query.Connection := dmPer.acPer ;
        Query.SQL.Add('select * from studentData where stuID=:stuID and stuPwd=:stuPwd');

        Query.Parameters.ParamByName('stuID').Value := cmbUsername.Text ;
        Query.Parameters.ParamByName('stuPwd').Value := edtpwd.Text ;

        Query.Open;
        if Query.RecordCount = 0 then
        begin
            MessageDlg('请输入正确的用户名和密码',mtError,[mbok],0);
            Exit;
        end;

        mainform.Show;
        frmLogin.close;

        except
        MessageDlg('连接数据库出错!',mtError,[mbok],0);
  end;
  1:
    ShowMessage('1');
  2:
    ShowMessage('2');
end;

end;

编译中出现 debugger Wxcepting Notification 异常

下面是具体的
project studentMIS.exe raised exception class EaccessViolation with message 'Access violation at address 004BB782 in module'studentMIS.exe'.read of address 00000058'.Process stopped . Use Step or Run to continue