急急急！！！ASP问题

问题：做了一个登录网站，注册没有问题，然后登陆的时候它就一直显示无此用户！！！

贴出我的检查代码和连接数据库的代码
<!--#include file="conn.asp"-->
<%
dim username,userpass
username = trim(request("username"))
userpass = trim(request("userpass"))
Set rs =Server.CreateObject("Adodb.RecordSet") ''定义查询指针
sql = "select * from users where username ='" & username & "'"
rs.open sql,conn,1,1
if rs.eof then
response.Redirect("err.asp?info=无此用户")
rs.close
end if
Set rs =Server.CreateObject("Adodb.RecordSet") ''定义查询指针
sql = "select * from users where username ='" & username & "' and userpass = '" & userpass & "'"
rs.open sql,conn,1,3
if rs.eof then
response.Redirect("err.asp?info=密码不对")
else
rs("logincount") = rs("logincount") +1
rs("lasttime") = now()
rs.update
session("userid") = rs("id")
session("username") = rs("username")
response.Redirect("loginok.asp")
rs.close
end if
%>
数据库连接：
<%
DIM CONNSTR,CONN
DIM SQL,RS
DIM I
CONNSTR = "DBQ=" + SERVER.MAPPATH("Database1.MDB") + ";DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}"
SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONN.OPEN CONNSTR
%>