asp中的登录问题

<%
     username=request.Form("username")
 pass=request.Form("userpass")
 shenfen=request.Form("shenfen")
 Dim rs
     Set rs=server.CreateObject("adodb.recordset")
 sql="select * from admin where shenfen='"&shenfen&"'"
 rs.open sql,conn,1,1
 If (rs("adminname")<>username) Then
   %>
   <script>
      alert("此用户不存在，请重新登录!");
  window.location.href("default.asp");
   </script>
    <%
 ElseIf (rs("password")<>pass) Then  
   %>
    <script>
      alert("密码错误！请重新登录!");
  window.location.href("default.asp");
   </script>
   <%
     Else 
 session("admin")=username  
     response.redirect "main.html"
     End If
 rs.close
 Set rs=Nothing  conn.close
 Set conn=Nothing 
   %>
请各位高人看一下上面的代码有没有错呀,我每次登录的时候它都提示“用户名不存在”，当把这句话“If (rs("adminname")<>username) Then”里面的不等号改为等号时，才能登录进去，这是怎么回事呀，是哪里出错了呀，请指点一下，谢谢！