Acá lo encontré. Sólo hay que modificar las lineas que están dentro de los "#" y debería funcionar bien
Código PHP:
<%
'#Codigo de Victor Garay
Dim base_de_datos1, base_de_datos2, tabla1, tabla2, ConnVBa, ConnVB, Tabla_source, Tabla_target
'modificar aquí los nombres de las bases y de las tablas:
'#########################################
base_de_datos1 = "bd1.mdb"
tabla1 = "tabla_origen"
base_de_datos2 = "bd2.mdb"
tabla2 = "tabla_destino"
'#########################################
set connVBa = server.createobject("ADODB.Connection") 'Base de datos 'Source'
set Tabla_source = server.CreateObject("ADODB.Recordset")
connVBa.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(base_de_datos1)
Tabla_source.open "SELECT * from " & tabla1 ,connVBa,3,2
set connVB = server.createobject("ADODB.Connection") ' Base de datos 'Target'
set Tabla_target = server.CreateObject("ADODB.Recordset")
connVB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(base_de_datos2)
Tabla_target.open "SELECT * from " & tabla2 ,connVB,3,2
On error resume next
registros_exportados = 0
do while not Tabla_source.eof
registros_exportados = registros_exportados + 1
Tabla_target.addnew
for i=0 to Tabla_source.fields.count-1
Tabla_target(i) = Tabla_source(i)
Next
Response.Write "Exportando registro # " & registros_exportados & "<br>"
Tabla_target.update
Tabla_source.movenext
Loop
Tabla_target.close
Set Tabla_target = nothing
connVB.close
Set connVB = nothing
Tabla_source.close
Set Tabla_source = nothing
connVBa.close
Set connVBa = nothing
Response.Write "Fin"
%>
Recordá que la tabla destino debe ser una réplica de la tabla origen... en su estructura de campos y definiciones de datos de los mismos.
Espero te sirva
sAludos