MS Access 2000

<%
set con=server.createobject("adodb.connection")
db = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("foldername/database.mdb")
con.open db
%>