Asp网页与Access数据库连接的代码

<%
'on error resume next
dim rs
dim conn
dim connstr
dim dbpath
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
DBPath = Server.MapPath("./news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>