retornar puntero de conexion

[Joch_pa]

no sera que tus clases están mal hechas?

No seria mejor:

Código ASP:

class Consultas
 
         function conecta()
                  dim puntero
                  Set puntero = Server.CreateObject("ADODB.Connection")
                  DSNtest="DRIVER={SQL Server};SERVER=MAINSERVER;UID=sa;PWD=12345;DATABAS E=muniprueba"
                  on error resume next
                  puntero.open DSNtest
                  if err then
                           conecta = Nothing
                           err.clear
                  else
                           conecta = puntero
                  end if
         end function
 
         public function ejecuta_sql (query)
                  dim rs
                  set rs = createboject("ADODB.Recordset")
                  on error resume next
                  rs.open query , conecta
                  if err then
                           ejecuta_sql= 0
                  else
                           ejecuta_sql= 1
                  end if
         end function
end class
 

Recuerda que las funciones deberían regresar un valor en el mayor numero de casos, si no regresarán nada, deberían ser SUB (subprocedimientos) en lugar de Function