Visual Basic - Como insertar registros de una Bd a otra

Buenas, mi pregunta es como puedo hacer para agregar un conjunto de registros determinados extraidos de una base de datos a otra, es para hacer una copia de los registros que cumplan con una condición (tengan en uno de los campo "TransfStat" un valor menor que 2 ), de antemano agradezco cualquier ayuda posible, gracias!

intenta usar esta intruccion de sql

sql="insert into tabla1(campo1,campo2..) select campo1,campo2 from tabla2 where ...."

conexion.execute sql

el numero de campos q vas a insertar deben de ser lo mismos numeros de campos q selecionas en el select y tambien obvio es q tienene q ir en el order en q pusiste los campos a insertar

espero y te sirva...

Lo que dice Francisco esta bien, pero si no te funciona con la instrucción SQL, puedes intentar esto, es un poco más largo pero hasta ahora a mí me a Funcionado, aquí va:

Tienes dos control data abiertos, uno para cada bd.

do While Not data1.recordset.EOF

data2.recordset.field("<Nombre del Campo>") = data1.recordset.field("<Nombre del Campo>")
.
.
.
data2.recordset.fields("<Ultimo campo>")=data1.recordset.field("<Ultimo Campo>")

Loop
Ojalá te sirva.