检测错误类EOleException

Question

检测错误类EOleException错误信息  '对象名'Users
if DM.CheckUserLogin(edtUserID.Text, edtUserPwd.Text) = True
function TDM.CheckUserLogin(txtUserID, txtUserPwd: string): Boolean;
begin
  Result := False;
  with qryUsers do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT UserID, UserName, UserPwd FROM Users');
    Open; First;
    if Locate('UserID;UserPwd', VarArrayOf([txtUserID, txtUserPwd]), [] ) then
    begin
      UserID := FieldByName('UserID').AsString;
      UserName := FieldByName('UserName').AsString;
      Result := True;
    end
指点一下哪出错了!
数据库用ADO的连接!