临沂兰山区南坊地图:看看我这个ASP程序哪儿有问题呀 /

我用一个表单其中的表单元素有;下拉列表里面有三个值分别是;学生,老师,管理员,还有就是两个文本框;帐户,密码.我想实现,根据列表里的值来查询不同的表.
我用了一个if 语句和一个select语句,可是页面老是报错:
我的程序如下:
<%@LANGUAGE="VBSCRIPT"%>
<%
dim select1 ,name1, psw1, check1
select1=request.Form("select")
name1=request.Form("name")
psw1=request.form("psw")
check1=request.Form("check")
if name1=""or psw1="" then
response.Write"请输入帐号和密码！"
else
dim conn, connstr, rs,sql1,sql2,sql3
connstr="dbp="&server.MapPath("skin\data.mdb")&";driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql1="select student_num,name from student where student_num='"&psw1&"'and name='"&name1&"'"
sql2="select teacher_num,name from teacher where teacher_num='"&psw1&"'and name='"&name1&"'"
sql3="select admin_num,name from teacher where admin_num='"&psw1&"'and name='"&name1&"'"
select case("select1")
case("学生")
rs.open sql1,conn,1,1
case("教师")
rs.open sql2,conn,1,1
case("管理员")
rs.open sql3,conn,1,1
end select
if rs.recordcount=0 then
response.Write"<font size='+1' color='#ff0000'>"&"对不起！此用户不存在或者密码不正确！"&"</font>"
else
response.Redirect"index1.asp"
end if
end if

%>

页面的错误提示是:
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4E)
操作已被取消。
/xuejiguanli/check.asp, 第 14 行(也就是conn.open connstr)

我认为是数据库连接上有问题的,可是看了好几遍,感觉数据库连接语句也没什么问题,高手帮我看看这是哪儿有问题了?
谢谢了!
我给高分20
那个写成dbp是现在写错的,还有就是27行(if rs.recordcount=0 then),提示说,recordset对象已经关闭,无法进行操作.

上面的大哥你在看看.我这程序哪儿还有问题呀?为什么会提示recordset对象已经关闭,无法进行操作呀?
求求各位高手给给看看,小弟邻表泣零,不胜感激