Bueno, son diferentes modos de operar con la conexión.
Yo me acostumbré de una manera, no significa que sea mejor que otras.
Así lo pongo:
Dim Conn
Dim Rs
Dim curDir
curDir = "d:\BasesWeb\GTI\com\Telefonos.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = Conn
Suerte
