Problema con parámetro de tipo objeto en una función

Buenas tengo definida esta función en una clase de VB6:
Public Sub insertarSocio(ByRef soc As cSocio) // funcion que tengo en una clase BDatos
Me.consulta = "INSERT INTO socio ... "
Me.bdatos.Execute (Me.consulta)
End Sub
Al invocar esta funcion de la siguiente manera:
Set miSocio = New cSocio
dbCon.insertarSocio (miSocio)
Da el siguiente error: "Error 438. El objeto no admite esta propiedad o método.
Creo que la causa es el objeto miSocio al pasarlo como parámetro. Al ser un objeto este parámetro igual no lo hago bien. He probado a definir esta parámetro como ByVal y ByRef pero no funciona.
¿Alguien me puede ayudar? No sé que puede ser.
Saludos y Gracias!