急！急！急！哪位大虾帮帮忙给看一下啊！

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim Mybbs,template
Dim SqlNowString,Conn
Const IsSqlDataBase = 0
Const Forum_CacheName = "我的论坛"
Const IsDeBug = 0
Startime = Timer()
Dim MyBoardOnline
Dim Db
Set Mybbs = New Cls_Forum
Set MyBoardOnline=new Cls_UserOnlne 
Set template = New cls_templates
SqlNowString = "Now()"
Sub ConnectionDatabase
Dim ConnStr
Db = "data/mybbs.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDV.4.0;"Data Source = "& Server.MapPath(db)"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Connection database error"
Response.End
End If
End Sub
%>
这是一个asp的连接数据库的程序，但是运行出来的时候只提示“Connection database error”只有错误的那部分，我也不知道是哪的毛病，大哥大姐们帮帮忙啊，急用！

On Error Resume Next
把这句注释掉就知道错在哪了

“查询数据的时候发现错误，请检查您的查询代码是否正确。”这是运行以后的错误提示提示，嘿嘿，不好意思，我不太懂 这段代码是我下载的一个论坛包的连接数据库的程序，我自己对这方面不是很了解，希望您能说明白点，谢谢！

请检查您的查询代码是否正确

Db = "data/mybbs.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;"Data Source = "& Server.MapPath(db)"

还不行再检查是否存在data/mybbs.mdb