Scusami ma non mi funziona come hai scritto tu. il metodo MoveFirst non me lo fa neanche comparire nella lista.
Da premettere che il combobox si chiama "Combo1" e il nome della colonna "Genere". prendendo spunto da te ho scritto cosi:

------------------------------------------------------------------
With Combo1
.MoveFirst
While Not .EOF
Combo1.AddItem! = Genere
Combo1.ItemData(Combo1.NewIndex) = Combo1("Genere").Value
Wend
End With
-----------------------------------------------------------------
cosi scrivendo mi da errore perke non trova il metodo .MoveFirst