Weno ya encontre el error, staba en las propiedades de la clase. Quedarian así:
Código vb:
Ver original'********************************************
'Propiedades
'********************************************
' Para la Conexión ADO
Public Property Get Connection() As ADODB.Connection
Connection = m_Connection
End Property
'Establece
Public Property Set Connection(Conexion_ADODB As ADODB.Connection)
Set m_Connection = Conexion_ADODB
End Property
Public Property Let Connection(Conexion_ADODB As ADODB.Connection)
Set m_Connection = Conexion_ADODB
End Property
' Propiedad para el ListView
Public Property Get ListView() As ListView
Set ListView = m_ListView
End Property
Public Property Set ListView(v_ListView As ListView)
Set m_ListView = v_ListView
End Property
Public Property Let ListView(v_ListView As ListView)
Set m_ListView = v_ListView
End Property
Lo pongo x si a alguien le pasa lo mismo :D