Visual Basic - Como Crear un RecordSet Desconectado Jerarquico

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:

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

cuando hago el Append y el tipo es adChapter no lo toma y s

Me resulta muy conocida esa función, para un recordset de ese tipo lo que puedes hacer es guardarlo como XML en un Stream y luego volverlo a abrir desde otro recordset.

En http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q252/7/67.ASP&NoWebContent=1 tienes la forma de guardar un recordset en XML.

En http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q263/2/47.ASP&NoWebContent=1 la inversa, obtener un recordset desde un XML.

El recordset que se obtiene de un XML está desconectado.