Copiar em profundidade ou clonar um conjunto de registros ADODB no VBA

Eu tenho procurado uma maneira de duplicar ou copiar um conjunto de registros no VBA. E com isso quero dizer, ter os dados indesejáveis independentes um do outro.

eu tentei

Set copyRS = origRS.Clone
Set copyRS = origRS

Quando uso qualquer um dos métodos, não consigo modificar um conjunto de registros sem modificar o outro. Então, neste exemplo:

Eu crio um conjunto de registrosPovo o conjunto de registros com o nome JohnEu clono o conjunto de registrosEu modifico o clonadoVerificar resultado

Código:

Dim origRS As Recordset, copyRS As Recordset
Set origRS = New Recordset
'Create field
origRS.Fields.Append "Name", adChar, 10, adFldUpdatable
origRS.Open
'Add name
origRS.AddNew "Name", "John"
'Clone/copy
Set copyRS = origRS.Clone
'Change record in cloned/copied recordset
copyRS.MoveFirst
copyRS!Name = "James"
'This should give me "JamesJohn"
MsgBox copyRS.Fields(0).Value & origRS.Fields(0)

Infelizmente, para mim, isso modifica os dois conjuntos de registros

Minha pergunta é:

Existe uma maneira de copiar um conjunto de registros de outro conjunto de registros e modificar os dados independentemente um do outro (sem loop)?

Eu sei que, evidentemente, você pode fazer isso através de um loop, mas não há outra maneira?