Visual Basic - insertar en orden

Hola y gracias por tu atencion. Mira queria hacerte una pregunta, se puede hacer que al dar a un boton, te introduzca en dos campos de una tabla (campo1, campo2) los nombres de los informes y su respectiva base de datos, es decir, si tenemos dos bases de datos (bd1 bd2) y tenemos estos informes( inf1 inf2 inf3) y los dos ultimos son de la base de datos, al dar el boton quedaran asi colocados:
inf1 bd1
inf2 bd2
inf3 bd3

Esto se puede hacer? si es posible, me puedes explicar como?, mira te dejo mi codigo, que lo unico que consigue es insertar, pero no me hace lo que te he explicado arriba. Gracias. Aqji tienes mi codigo:

Dim i As Integer
Dim rs As Recordset
Dim db As Database
Dim num_informe As Integer
Dim num_bd As Integer
Set db = OpenDatabase(App.Path & "\buscarinformes.mdb") 'nombre de la base de datos *nombrebasedatos*
Set rs = db.OpenRecordset("informes") 'nombre de la tabla es *nombretabla*
For num_informe = 0 To List2.ListCount - 1
rs.AddNew
rs.Fields("nombreinforme") = List2.List(num_informe) & "" 'el campo es *basededatos*
rs.Fields("nombrebd") = List1.List(num_informe) & "" 'el campo es *informe*
rs.Update
Next num_informe
rs.Close
db.Close

Gracias. Saludos.