Visual Basic - Listbox y base de datos

Como hacer para que en un listbox pueda agregar todos los datos de un campo de una base de datos al darle clik en un comanboton.

Private Sub Command1_Click()
sql = "SELECT * FROM tabla"
Set rs = db.Execute(sql)
With rs
While Not .EOF
Combo.AddItem !nombre del campo
.MoveNext
Wend
End With
end sub