Visual Basic - AYUDA URGENTE ¿cómo cargar un list-box?

tengo la base de datos: eventos
el campo referencia
el campo código
el campo título
lo que quiero hacer es cargar un list box con esa base de datos, pero de la siguiente forma:
Que me pregunte por medio de dos ventanas:
Desde la referencia:
Hasta la referencia:
y que en el list box se vean solo los campos codigo y título.
Ejemplo:
Desde la referencia: 1
Hasta la referencia : 2
En el listbox se tendría que ver:
34 Muerte en el Nilo
12 Acorralado
donde 34 y 12 serían los códigos y Muerte en el Nilo y Acorralado los títulos de esos códigos.

Muchas gracias, es que no doy con el código.
Saludos.

No se como conectas los listbox, pero algo muy fácil sería directamente filtrar la base de datos por la consulta y luego cargarlos. Sería algo así como traer nada mas los datos que necesitas. Por ejemplo si conectas tu base de datos por ADO, por medio de un récordset sería así.

RS.Filter = "Referencia >= " & ValorDesde & " and Referencia <= " & ValorHasta
List1.Clear
if RS.Recordcount > 0 then 'Esto te dice el filtro devuelve datos
RS.MoveFirst
Do While Not RS.Eof 'Hacer mientras el recordset no llegue al final
List1.Additem RS!Codigo & " " & RS!Titulo
RS.Movenext
Loop
End if

Con esto haces lo que vos querés.

Afogutu.

Si estas utlizando un listbox "normal" (sin datos enlazados), lo habitual es que mediante un bucle leas de la base datos y añadas los campos necesarios con el metodo ("Additem")
Un ejemplo sencillo, puede ser el de crear dos listbox para cada ventana
el que uno de ellos, (el del codigo) este invisible (visible=false) ,.
Si has abierto un recordset llamado Rstable
Do while not Rstable.eof
lisbox_desde_codigo.additem rstable("codigo")
lisbox_hasta_codigo.additem rstable("codigo")
lisbox_desde_titulo.additem rstable("titulo")
lisbox_hasta_titulo.additem rstable("titulo")
rstable.movenext
loop
Luego al hacer click en cualquiera de los lisbox visibles (titulo) obtienes el codigo correspondiente.
dim codigo_ini as integer
Sub lisbox_desde_titulo()
codigo_ini = lisbox_desde_codigo.list( lisbox_desde_titulo.listindex)
End Sub