数据库连接问题

<%
Const db="data.mdb"
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open

If Err Then
    err.Clear
    Set Conn = Nothing
    Response.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />    ")
    Response.End
End If

session.timeout=100
%>

错误类型：未指定的错误
/bysj2/conn.asp, 第 6 行
但是昨天还是正常的，我也没改过里面的内容，进天就出现这样的错误了，知道的告诉一下，谢谢！！！