看我这段conn.asp代码有什么错

<%
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath("资料.mdb")
%>
在asp中引用代码
<%
set rs=server.CreateObject("adodb.recordset")
rs.opne "select * from 文件库",cn,1,1
response.Write rs("文件名")
rs.close
%>
错误如下：

Microsoft OLE DB Provider for ODBC Drivers ���� '80004005'

[Microsoft][ODBC ��������������] δ��������Դ���Ʋ���δָ��Ĭ����������

/conn.asp���� 4