谁能帮我解决以下数据库问题
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
<%
set conn = server.CreateObject("ADODB.connection")
conn.Open application("dsn")
'set rs = conn.Execute("exec sp_js99")
set rs = server.CreateObject("ADODB.recordset")
rs.Open "select num as no,score1 as s1,score2 as s2,score3 as s3,score4 as s4,score5 as s5 from student order by num",conn
%>

dim conn,connstr,dbpath
'更改数据库名字
dbpath="newdata.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)

ASP与Access数据库连接：

<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>