TE FALTA LA CREACION DEL OBJETO DE CONEXION
Código:
fichero de conexion
-----Connection.asp
dim strConn
set strConn=Server.CreateObject("ADODB.Connection")
strConn.open "DSN=AQUA;UID=;PWD=;DATABASE=AQUA.mdb"
tu pagina.asp
<!-- #INCLUDE VIRTUAL="/include/Connection.asp" -->
set rst=server.CreateObject("ADODB.recordset")
strSql="SELECT CODIGO,NOMBRE FROM TABLA "
rst.Open strSql,strConn
rst.Close
Set rst = Nothing