Adodb.Recordset - Copiare in un altro recordset solo alcuni campi

Ciao a tutti,
ho la necessità di copiare da un adodb.recordset a un altro solo alcuni campi: non posso limitarlo dal principio perchè altrimenti dovrei cambiare tutto il codice del programma.
Il recordset di origine ricava i dati con una query su db Oracle ed è già formattato, poi viene loopato riga per riga per creare un file excel.
Il mio intento è di evitare il loop e fare un recordset solo con le colonne che mi interessano con la funzione CopyFromRecordset in modo di essere più veloce.
Il recordset di origine è questo:

 With RsExcel
    .Fields.Append "Pippo", adBigInt
    .Fields.Append "Pluto", adVarChar, 100, adFldIsNullable
    .Fields.Append "Topolino", adVarChar, 100, adFldIsNullable
    .Fields.Append "Paperino", adVarChar, 255, adFldIsNullable
    .Fields.Append "Minni", adVarChar, 20, adFldIsNullable
    .Fields.Append "Qui", adVarChar, 20, adFldIsNullable
    .Fields.Append "Quo", adDate
    .Fields.Append "Qua", adVarChar, 20, adFldIsNullable
    .Open
  End With '

Da questo devo selezionarne solo alcuni, tipo Paperino, Qui, Quo, Qua: come posso fare? Ho cercato un po' online, ma non ho trovato (o capito) soluzioni.

Grazie,
Marco

Cambi la query che estrai i dati da Oracle, o ne crei un'altra ad hoc, oppure modifichi il loop.
Non vedo altre soluzioni.

Ciao Gibra,
purtroppo non posso cambiare nè la query nè crearne un'altra ad hoc perchè si trova innestata in varie funzioni ed è un casino estrapolarla.
Come potrei modificare il loop per creare il file excel?
Tieni conto che il file può essere lungo anche migliaia di righe ed è veramente lento a girarlo tutto.
In alternativa avevo pensato di fare un recordset con solo alcuni campi e quindi copiare dal recordset di origine solo le informazioni che mi interessano.

Ciao,
è da una vita che non uso più adodb, per cui non so se funzionerà;
ma per la serie "tentar non nuoce" potresti provare :

1)
'creo un clone del recordset originale
set recordsetClone = recordsetOriginale.clone

2)
'disconnetto il clone dalla sua connection ;
'N.B verifica che non disconnetta anche l'originale ... altrimenti ferma tutto
set recordsetClone.ActiveConnection =nothing

3)
'cancello i campi di recordsetClone che non mi interessano... pure qui, ferma tutto se si cancellano i field anche dall'originale
recordsetClone.Fields.Delete(...)

4) Faccio quello che devo con il clone

HTH