OK !
Faça uma Sub que encha a combo Assim :
A combo se chama combo
A tabela TB e o Campo Nome
-----------------------------------------
tb.moveMin
Do
Combo.clear
Como.Additem UCASE(tb!nome)
tb.movenext
Loop until tb.eof
-----------------------------------------
A função UCase() Deixa todas as letras em Maiusculo, se você quiser todas em Minusculo use a função LCase().