[VB6] problemi DB e fields

[Dave83]

Ehm il fatto è ke nn programma + in vb6, cmq +o- è così

Dim conn As ADODB.Connection
Dim rs1 as ADODB.Recordset
Dim rs2 as ADODB.Recordset

conn.ConnectionString(strconn) 'strconn è la stringa di connessione al database
rs1.open("xxx",conn)
rs2.open("yyy",conn,2,2)
do while not rs1.eof
    rs2.addnew()
    rs2.item("nomecampo")=rs1.item("nomecampo")  'nn ricordo se la proprietà item è giusta
    rs2.update
    rs1.movenext
next
rs1.close
rs2.close
conn.close