Visual Basic - Exportar datos de una tabla a otra con ado

Hola A todos,

Necesito saber la forma de exportar los datos que tengo en una tabla dbf en un pc local y llevarla a otra tabla dbf en otra ruta, pero no deseo hacerlo uno a uno sino hacer un insert into.

gracias si me pueden ayudar.

Hola loco espero qeu te sriva...

Dim Lrs_Tablas As ADODB.Recordset
Dim Lrs_Tablas1 As ADODB.Recordset

lv_sql$ = Empty
lv_sql$ = " SELECT * From VSN_INVENTARIOS "
Lrs_Tablas.Open lv_sql$, Conexion, adOpenKeyset, adLockOptimistic
lv_sql$ = " SELECT * From VSN_INVENTARIOS1 "
Lrs_Tablas1.Open lv_sql$, Conexion, adOpenKeyset, adLockOptimistic
do while not Lrs_Tablas1.eof
With Lrs_Tablas
.AddNew
.Fields("AGENCIA_ID") = Lrs_Tablas1("AGENCIA_ID")
.update
end with
Lrs_Tablas1.movenext
loop