上海戴科电缆厂:用asp和access连接,想实现如果表单里的数据为access里面存储的,则进入成功页面,否则不动,这样代码怎么写啊

<%
Option Explicit
Dim username, password

username = trim(Request.Form("username"))
password = trim(Request.Form("password"))

set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("dlcts.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='" + username + "' and password='" + password + "'"
rs.open sql,cn,1,1 (到这里就不知道如何进行了)

Response.Redirect("success.asp")
end if
Response.Redirect("login.asp")
%>
<%
Option Explicit
Dim username, password

username = trim(Request.Form("username"))
password = trim(Request.Form("password"))

set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("dlcts.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='" + username + "' and password='" + password + "'"
rs.open sql,cn,1,1
if rs.eof then

response.write "<script language=javascript>alert('用户名或密码错误 !');window.location='login.asp';</script>"
response.end
else
response.write "<script language=javascript>alert('恭喜您，您已登陆成功!');window.location='success.asp';</script>"
response.end
end if
%>
应该这样吗,但是还是连不上,source="&server.mappath("dlcts.mdb"),这里的路径是相对路径吗,谢谢!