prova a mettere questa routine sull'evento form load
codice:
Dim rc As Recordset
Set rc = CurrentDb.OpenRecordset("Select campo1 from tabella GROUP BY campo1;")
Do While Not rc.EOF
    caselladitesto = caselladitesto & rc(0)
    rc.MoveNext
Loop
rc.Close
se ti da errore nell'apertura del recordset devi aggiungere nei riferimenti del codice "microsoft dao 3.6"

ovviamente lo devi adattare al tuo caso, nome del campo, della tabella della casella di testo ecc