<%
　　strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("数据库文件")

　　set　conn = server.createobject("adodb.connection")

　　conn.open strconn
　　%>