Visual Basic - base de datos y listbox

como le hago para que cuando le de click en un comanbutton me me busque los datos de un campo en una base de datos y me los agregue al listbox.

Hola

esto te puede servir

suponiendo q Reg as tu Recordset.

listbox1.clear
do while not Reg.Eof
list1.addItem rs.fields("tucampo")
reg.movenext
loop
reg.movefirst
list1.ListIndex=0

Espero q te sirva y si no, vuelve a escribri..

Saludos...

option explicit
dim rs as new adodb.recordset
--------------------------------------------------------
private sub command1_click()
*****llama a la rutina
cargalista (select * from tabla)
end sub
------------------------------------------------------------------------------
/////////esto lo pones por ahi abajo de todo, esa un rtuian que carga la lista, la llamas cuando quieras cargar la lista/////////////////////////////////////////////

'CARGA LISTA--------------------------------------------------
Sub cargalista(sql As String)
List1.Clear
Set rs = db.Execute(sql)
With rs
While Not .EOF
List1.AddItem rs!nombre del campo a agregar*
.MoveNext
Wend
End With
End Sub
---------------------------------------------------------------------------------------