<%
Set Conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & Server.MapPath("/rep_depro/ma_base.mdb")
Conn.Open connstring
%>

Ceci présuppose que le répertoire où se trouve la base de données a été préalablement déprotégé en écriture !

Puis pour fermer la connexion
<%
' Traitements divers
Conn.close : Set Conn=nothing
%>

OU

<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("forum.mdb")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>

OU

<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("forum.mdb")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>