Passaggio dati tra database

[keeper76]

Dovrei fare per mio uso privato (quindi na cosa coi fiocchi) un piccolo progr in VB6 che mi copi un record da un databse ad un altro. Mi spiego. L'anno scorso mi ero fatto un piccolo gestionale in Access2000, ma quest'anno ho detto perche' per imparare non provo a scrivere quel programma in VB6 ? Ci sono riuscito e tutto funziona (che soddisfazione e per questo devo ringraziare Andrea GUGU)
Ora il mio problema e' il seguente, vorrei aprire il progr vecchio fatto in access, selezionare un record (Cognome, Nome, ecc) e premendo un tasto mi copi il record nel databse nuovo. Voglio farne uno alla volta cosi' riesco a fare anche un po' di pulizia dell'archivio visto che ultimamente era diventato un po' un casico. Importante, i campi del databse vecchio e del database nuovo sono identici. Secondo voi e' una cosa fatibile ? Dove posso trovare delle info o meglio degli esempi ?

[cla80]

[code]
'Prendi il record nel db vecchio
(inserisci il datacontrol nel form e un commandbutton e un textbox
Option Explicit
Private Sub Command1_Click()
dim db as DAO.Database
dim rs as recordset
dim db1 as DAO.Database
dim rs1 as recordset
dim a, sql as string
set db=Opendatabase("c:\..\blabla...\dbvecchio.mdb")
set rs=db.Openrecordset("SELECT * FROM tabella dove prendere i dati")
a=rs.fields("Nome del campo") ' oppure rs!Nome del campo
do while not rs.eof
text1.text=a
rs.movenext


loop
Set db1=Opendatabase("c:\...\blabla..\nuvodb.mdb")
Set rs1=db1.Openrecordset("tabella destinazione")
sql="INSERT INTO tabella destinazione (nome campo) values (" & text1.text & ")
db1.execute(sql)
db.close
rs.close
db1.close
rs1.close
set db=nothing
set rs=nothing
set db1=nothing
set rs1=nothing
End Sub