Agregar colección a colección

Tengo una clase en la que cree una propiedad collection a la que quiero
agregar un conjunto de collecciones, en la clase tengo una función
crearcolección a la que envio los parametros que quiero agregar, esta
funciona bien pero al querer agregar la coleccion creada a la colección me
da el siguiente error "Referencia a objeto no establecida como instancia de
un objeto", les paso el código que utilizo.


Dim colivacomp As New Collection

Dim colcompras As New Collection

colivacomp = Me.crearcoleccion("Ivacomp", "", "", "IdIvacomp", False, True,
"", "", 1)

colcompras = Me.crearcoleccion("Compras", "Ivacomp", "IdIvacomp",
"IdCompras", False, True, "", "", 2)

Me.coltables.Add(colivacomp) (Enesta línea salta el error)

Me.coltables.Add(colcompras)


Esta es el fragmento del código en la clase en la que creo la propiedad y
abajo en la que cargo las colecciones
Private _coltables As Collection

Public Property coltables() As Collection

Get

Return _coltables

End Get

Set(ByVal Value As Collection)

_coltables = Value

End Set

End Property



Public Function crearcoleccion(ByVal cTabla As String, ByVal cPadre As
String, _

ByVal cForeign As String, ByVal cPkey As String, ByVal lPkeyAct As Boolean,
ByVal lPkeyEsautoinc As Boolean, _

ByVal lcSql As String, ByVal lcUpfields As String, ByVal nNivel As Integer)
As Collection

Dim colitem As New Collection

colitem.Add(cTabla, "cTabla")

colitem.Add(cPadre, "cPadre")

colitem.Add(cForeign, "cForeign")

colitem.Add(cPkey, "cPkey")

colitem.Add(lPkeyAct, "lPkeyAct")

colitem.Add(lPkeyEsautoinc, "lPkeyEsautoinc")

colitem.Add(lcSql, "lcSql")

colitem.Add(lcUpfields, "lcUpfields")

colitem.Add(nNivel, "nNivel")

Return colitem

End Function