se mi dici che i campi sono identici puoi fare:
codice:
While not MioRecordset.Eof
Connection.Execute("insert into Tabella Values(" &MioRecordset!Campo1 & ", " & mioRecordset!Campo2 .....&")"
MioRecordset.Movenext
Wend
ps: Controlla come lanciare un comando dalla connection, non ricodo bene la sintassi
al limite potresti provare con una update. Esiste in vb6 un oggetto Table? Se si ti metti nella table i valori del recordset e fai qualcosa di simile:
codice:
Connection.Execute("UPDATE TabellaDB From " & OggettoTable)
non so se funziona