Io il codice lo vedo con :master:

codice:
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/_private/database.mdb")
presupponendo che _private stia nell main root.