Ti posto un pezzo di codice x capire meglio quello che sto facendo !!!

code
rs_temp.Fields.Append "id"
rs_temp.Fields.Append "nome"
rs_temp.Fields.Append "cognome"

rs_temp.CursorLocation = adUseClient
rs_temp.Open , , adOpenKeyset, adLockOptimistic ' non è collegato con nessuna connessione

For ii = 1 To xxx
rs_temp.AddNew
rs_temp.Fields("id").value = ii
ecc...
next

' ora il recoedset a un numero di dati allinterno...
ma la select non mi sembra che la posso utilizzare x fare una query
e l'opzione filter non mi sembra che funzioni con ADO.