Please refer to the sample below to connect to MS Access:-
<% 'comments - this establish connection to the database
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=thephysicalpathhere"
conn.Open
%>
* Kindly take note that the physical path would be depending on which server you are residing.