asp缺少对象

<%
dim db,conn
    db="data/web.mdb"
    set conn= Server.CreateObject("adodb.connection")
    conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
%>
<%
dim rs,strsql
    strsql="sselect * from web "
    set rs=db.execute(strsql)     //“错误类型：Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: 'data/web.mdb'”
%>
<center>
<a href="insert_form.asp">插入记录</a>
<table width=100% border=1 >
 <tr bgcolor=yellow ><td>名称</td><td>网址</td><td>说明</td><td>删除</td><td>更新</td></tr>
<%
do while not rs.eof
%>
<tr bgcolor=yelloe >
<td><%=rs("name")%></td>
<td><a href="http://<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
<td><%=rs("text")%></td>
<td><a href="delete.asp?id=<%=rs("id")%>">删除</a></td>
<td><a href="update_form.asp?id=<%=rs("id")%>">更新</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</center>

我是asp低级菜鸟，请详细解说。谢谢！