VB6 & Base de Datos Access con Data

[lic_dahool]

bueno es simple, por ejemplo:

dim data1 as recordset
dim datanew as recordset

set data1= base.openrecordet(tabla1)

set datanew= base.openrecordet(tabla1)

.....

' aca va el código de búsqueda
' que lo haces sobre data1

.....

datanew.addnew

for i=0 to data1.fields.count -1
datanew.fields(i).value = data1.fields(i).value
next
datanew.update


saludos.