Intentalo así:
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("database.mdb"))
etc....
%>
avisas si te funcionó,
Si preguntas, pasaras por ingenuo 5 minutos, si no preguntas ....... serás ingenuo toda tu vida