Visual Basic - ayuda urgente property

ayuda urgente

cree una dll para trabajar en 3 capas probando tenga una clase llamada bd con

Private Conexion As ADODB.Connection
Private msj1 As String

Public Property Get miConexion() As ADODB.Connection
miConexion = Conexion
End Property

Public Property Get msj2() As String
msj2 = msj1
End Property

Private Sub Class_Initialize()
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "Driver={Oracle in OraHome90};" & _
"Dbq=Demo;" & _
"Uid=scott;" & _
"Pwd=tiger"
Conexion.Open
msj1 = "hola"
End Sub

aparte tengo un form donde pruebo y me da siempre error 91 es el siguiente


Private Sub Command1_Click()

Dim oracle As BASE_DATOS.BD
Dim a As ADODB.Connection

Set oracle = New BASE_DATOS.BD
Set a = oracle.miConexion

Debug.Print oracle.msj2
End Sub

el error ocurre al asignar a la referencia a lo q retorna la propiedad mi conexion

ayuda

hace mucho que no hago clases en vb pero creo que es:
Public Property Let miConexion() As ADODB.Connection
Set miConexion = Conexion
End Property