Foros Club Delphi - Objetos como parámetro en ASP

Por razones que no es posible discutir, me he visto obligado a usar ASP. Tengo el siguiente código:

Código:

' Objeto global conexión.

  DIM ConexionBD







' ConectaBD:

'   Conecta con la base de datos.

' TODO: Comprobar conexión y devolver error.

SUB ConectaBD (Origen, Usuario, Clave)

' Creamos el objeto de conexión.

  SET ConexionBD = Server.CreateObject ("ADODB.Connection")

' Conectamos

  ConexionBD.Open Origen, Usuario, Clave

END SUB

Yo quisiera que, en lugar de usar objetos globales, esta SUB fuera una FUNCTION que devolviera el objeto creado y que otras funciones o subs lo recibieran como parámetro, sin embargo todos mis intentos han sido en vano.

Encontré en internet este artículo sobre serialización que parece ser el origen y la solución del problema, pero es muy complicado o eso me lo parece.

¿No se pueden devolver objetos ni pasar referencias a objetos entre subrutinas como en cualquier otro lenguaje?