Visual Basic - formulario

Hola!
Estoy trabajando con una base de datos en acces, y quiero hacer que en el formulario me aparezca una tabla donde se puedan seleccionar unos campos y añadirlos a la tabla que está vacía justo al lado. (Si queréis ver un ejemplo más gráfico, en el asistente de creación de consultas de access te lo muestra de la forma que yo lo quiero hacer).
Bien, sabéis de alguna manera para hacerlo?
He creado dos tablas, una con los datos y otra en blanco. En medio de las dos, un botón, el cual será para añadir. Qué debo poner en el código de este botón añadir, para que lo haga? (Ya sé, pregunta complicada de entender...)
Gracias por intentarlo!
Un saludo a todos!

dim db as database
dim rs1 as recordset
dim sr2 as recordset
dim sql as string

sql = "select * tabla1 where RegistroSeleccionado = true"

db = opendatabase ...
rs1 = db.openrecordset(sql)
rs2 = db.openrecordset(tabla2)

do until rs1.eof

rs2.addnew
rs2!campo1 = rs1!campo1
rs2!campo2 = rs1!campo2
.....
rs2.update

rs1.movenext

loop

mas o menos asi , lo hice de memoria
quizas alla que corregir algo pero espero que que sirva la idea

JLF_