Visual Basic - Cómo lleno un ListBox con los registros de una BD

Necesito llenar un ListBox con los registros de una BD determinada. Trabajo con el Data Control convencional. Osea, tengo una BD con dos campos: NOMBRE y CODIGO. Necesito que un ListBox se llene con los registros del campo NOMBRE, para que me aparezca una especie de lista con los nombres de todos los productos.

Si no es mucha molestia... tambien me gustaría saber cómo hago para que un TextBox cambie el formato de los numeros a PUNTOS Y COMAS. Osea, que cuando meta por ejemplo 12345, lo convierta automáticamente a 12.345,00. Muchas gracias por su ayuda !

Primero:
Private Sub listbox_Gotfocus()
On Error GoTo Salida
Set GenEmpresa = base.OpenRecordset("Empresa")
Do While Not GenEmpresa.EOF
ListBox.AddItem GenEmpresa!nombre
GenEmpresa.MoveNext
Loop
GenEmpresa.Close
Salida:
End Sub
Segundo: Voy a revisar si tengo algo