漏夏汉化版下载:求助：[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序 (0x80004005)

我用的是xp,数据库是access
做的是一个在线考试系统
checkusr的代码如下：
<%@ Language=VBScript %>
<!--#include file="db.asp"-->
<%
dim userid,pwd,kind,sql,rs
userid=request("userid")
pwd=request("pwd")
kind=request("kind")
sql="select * from User_info where userid="&userid&" and pwd='"&pwd&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
response.redirect "login.asp?Message=error"
else
userid=rs("userid")
username=rs("username")
powerid=rs("powerid")
rs.close
end if
if kind="A" then
tempstr=instr(powerid,"A")
if tempstr<>0 then
Response.Cookies("logok")="yes"
Response.Cookies("userid")=userid
Response.Cookies("username")=username
Response.Cookies("pwd")=pwd
Response.Cookies("powerid")=powerid
response.redirect "default.asp"
else
response.redirect "login.asp?Message=nota"
end if
else
Response.Cookies("logok")="yes"
Response.Cookies("userid")=userid
Response.Cookies("username")=username
Response.Cookies("pwd")=pwd
response.redirect "default.asp"
end if
%>

db.asp代码如下：
<%
dim conn
set conn=Server.CreateObject("ADODB.connection")
provider="Provider=Microsoft.Jet.OLEDB.4.0;"
conn.Open
DBPath ="data source=" & Server.MapPath("data/data.mdb")
conn.Open provider & DBPath
%>

请高手们帮助