网页与数据库ACCESS怎么连接

<%
'================================================================================================================
dim conn
dim connstr
dim db
db="admin/#data/%98data.mdb" '数据库文件位置

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
'If Err Then
'err.Clear
'Set Conn = Nothing
'Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确！</div>"
'Response.End
'End If
'-----------------------------------------------------------------------------------------------------
'--------------------------------------------------------------