<%

set Conex = Server.CreateObject("ADODB.Connection")
 
'Se especifica la ubicación del archivo MDB de la base de datos Access

'Conex.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Hosting\usuario\wwwroot\archivo.mdb"
Conex.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( "archivo.mdb" )
 
'Abrimos la conexion y ejecutamos una consulta
Conex.Open
 
set Rs = Server.CreateObject("adodb.recordset")
set Rs = Conex.Execute("SELECT * FROM tabla")
Response.Write Rs("Campo")
 
Conex.Close
'Se eliminan los objetos de la memoria
Set Rs = Nothing
Set Conex = Nothing
%>