Visual Basic - RecordSet desconectado Jerarquico (adChaper)

Como puedo copiar de un recordset conectado a otro recorset desconectado (eso se como hacerlo si es un recordset plano) pero el recorset que he recuperado que tiene una estructura jerarquica (consulta utilizando el MSDataShape - y el comando Shape )
el codigo q tengo es para un recordset plano y es el sgte:
cuando hago el Append de la estructura del nuevo recordset y el tipo es adChapter (q es la referencia a otro recordset jerarquico) no lo toma y sale q no se puede efectuar la operacion ..alguien sabe como lo hago?
y es buena idea hacer esto de trabajar con rset desconectados?
Private Function CreateDisconnectRecordset(ByVal objRecordset As ADODB.Recordset) As Recordset :Dim objDisconnect As Recordset, objColumn As Field
If objRecordset.State = adStateOpen Then
With objRecordset
Set objDisconnect = New Recordset
For Each objColumn In .Fields
objDisconnect.Fields.Append objColumn.Name, objColumn.Type, objColumn.DefinedSize, adFldIsNullable + adFldMayBeNull
objDisconnect.Fields.Item(objColumn.Name).NumericScale = objColumn.NumericScale
objDisconnect.Fields.Item(objColumn.Name).Precision = objColumn.Precision
Next
objDisconnect.Open
If Not .EOF Then
If .CursorType <> adOpenForwardOnly Then .MoveFirst
While Not .EOF
objDisconnect.AddNew
For Each objColumn In objDisconnect.Fields
objDisconnect.Fields.Item(objColumn.Name).Value = .Fields.Item(objColumn.Name).Value
Next
.MoveNext
Wend
End If
If Not objDisconnect.BOF And Not objDisconnect.EOF Then objDisconnect.MoveFirst : End With
End If :Set CreateDisconnectRecordset = objDisconnect : End Function