[VBA/ACCESS] Aggiungere dinamicamente elementi ad una casella

[19pantarei75]

Ciao a tutti!
Vorrei popolare una casella combinata dinamicamente all'apertura di una maschera.
Se è vuota, verrà riempita con l'orario attuale, altrimenti l'orario attuale verrà messo in coda insieme agli altri.
Ho fatto questo ma non funziona. mi riempe la casella solo con un unico valore.

giorno = Now
If IsNull(Me.ControlloData) Then
     Me.ControlloData.AddItem (giorno)
 Else
     If Me.ControlloData.ListCount > 0 Then
         Me.ControlloData.ListIndex = giorno
        End If
 End If

come posso sistemarlo?

[19pantarei75]

Proprio nessun suggerimento?