По поводу клона, может я , что-то не так делал но клон получался всегда только как ссылка на рекордсет, т.е. изменения в рекордсете отражались в клоне и наоборот

Если rst такой же то просто в цикле

For i=0 To rstI.Fields.Count-1
rstC.Fields(i).Value=rstI.Fields(i).Value
Next i

Собственно и все, но лучше такие вещи выполнять запросом.

Если Вам нужна просто копия, ну мало ли зачем.

Откройте rstC без соединения.

Dim rstI as New ADODB.Recordset
Dim rstC as New ADODB.Recordset

rstI.Open "Select...",conn, ... , ...

For i = 0 To rstI.Fields.Count-1
rstC.Fields.Append rstI.Fields(i).Name, rstI.Fields(i).Type, rstI.Fields(i).DefinedSize
Next i

rstC.Open
rstC.AddNew

For i=0 To rstI.Fields.Count-1
rstC.Fields(i).Value=rstI.Fields(i).Value
Next i