Visual Basic - meter datos listbox base datos

Muy wenas tengo el siguiente problema no se como cargar un listbox con datos que tengo en una base de datos.

Yo tengo un tabla que son usuarios y quisiera cargar en el listbox el nombre de los usuarios.

Un saludo

Este es un ejemplo utilizando ADODB

Dim lsquery$
Dim rs As New ADODB.Recordset

lsquery = "SELECT codigo, descripcion FROM usuario "
rs.open lsquery, CN , adOpenKeyset, adLockOptimistic

LISTA.CLEAR
DO WHILE NOT rs.EOF
lista.additem rs!descripcion
rs.movenext
LOOP

muchas gracias Christian ya esta resualta mi duda.

Un saludo desde Leon