La query la imposti in modalità elenco valori e la popoli con un ciclo da 1 a 12 se vuoi i 12 mesi dell'anno corrente.. e, prendendo.come data iniziale 1Gennaio fai un Dateadd di mesi e poi formatti prima di fare Additem...
Dim dt As date
Dim i as integer
Dim sDate as string
Dt=Fix(DateSerial(year(Date()), 1, 1))
For i=0 to 11
Dt=dateadd("m",i, dt)
SDate=Format(dt,"mmmm yyyy")
Me.CboDate.Additem sDate
Next
Adattala in relazione alle tue esigenze...