Haber si te entendi, tienes dos tablas y quieres llenar la segunda con los datos que estan en la primera. Bueno partiendo de que las dos tengan la misma estructura
dim cnConexion as ADODB.Connection
Dim rsTabla1 as ADODB.Recordset
Dim rsTabla2 as ADODB.Recorset
Set cnConexion =New ADODB.Connection
Set rsTabla1=New ADODB.Recordset
Set rs Tabla2=New ADODB.Recordset
cnConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MiBase.mdb;Persist Security Info=False"
rsTabla1.ActiveConnection =cnConexion
rsTabla2.ActiveConnection =cnConexion
Do While not rsTabla1.EOF
with rsTabla2
.AddNew
.Fields(0).Value=rsTabla1.Fields(0).Value
.Fields(1).Value=rsTabla1.Fields(1).Value
.Fields(n).Value=rsTabla1.Fields(n).Value
.Update
End With
rsTabla1.MoveNext
Loop
Es lo que se me ocurre rapido, espero te sirva
