asp与access数据库怎么连接？高手来！

<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("你的数据库路径")
%>

<%
Dim Conn,ConnStr
Const Db="data/test.mdb"
Connstr="Provider=Microsoft.Jet.OleDb.4.0;Data Source="&Server.Mappath(Db)
Set Conn = Server.Createobject("adodb.connection")
Conn.open ConnStr
If Err Then
Err.Clear
Conn.Close:Set Conn=Nothing
Response.Write "数据库连接出错"
Response.End()
End If

%>