'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
'Como vamos a utilizar la variable rs del tipo recordset para recorrer los registros con EOF
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(" ruta base de datos"))
SQL="Select * from (tabla) where id=1 "
SET rs=con.execute(SQL)
variable=rs("id")
prueba con este tipo de conexion
Suerte
