Bueno al final encontré la solución.
Por ejemplo:
Código:
Dim destino as string ="[MS Access;DATABASE=c:\bdDestino.mdb;Uid=admin;Pwd=miPassword;]"
Dim origen as string = "[MS Access;DATABASE=c:\bdOrigen.mdb;Uid=admin;Pwd=miPassword;]"
conn.open
cmd.connection =conn
cmd.commandtext = "INSERT INTO " & destino ".tabla SELECT * FROM " & origen & ".tabla"
cmd.executeNonQuery
conn.close
saludos