[VBA e AccessXP] Date in range

[elmate]

ciao a tutti,
in una maschera di bilancio ho una combobox Sceglimese con elencati i mesi dell'anno.
vorrei stampare le voci di bilancio in base al mese.
ovvero se scelgo "gennaio" fammi vedere le date dal 1-1-2005 al 31-1-2005.

su esecuzione riconosce il "Case" ma mi stampa il report senza alcun dato...

ALLEGO frammento di codice, sono presenti vari tentativi...:

Private Sub CreaReport_Click()
mese = Forms!OpzioniStampaBilancio!Stampamese.Value
Select Case mese
Case gennaio
MsgBox "OK stampo gennaio"
meserange = ([Bilancio].[Data] >= #1/1/2005#) And _
([Bilancio].[Data] <= #1/31/2005#)
Case febbraio
meserange = ([Bilancio].[Data] >= 1 - 2 - 2005) And _
([Bilancio].[Data] <= 31 - 2 - 2005)
Case marzo
meserange = ([Bilancio].[Data] >= 1 - 3 - 2005) And _
([Bilancio].[Data] <= 31 - 3 - 2005)
Case "aprile"
MsgBox "OK stampo aprile"
DoCmd.OpenReport "Bilancio", acViewPreview, , _
"[Bilancio].[Data] = (Forms![Bilancio]![Data] >= #1/4/2005#)And _ Forms![Bilancio]![Data] <= #4/30/2005#)"

....
....
ps: ma l'underscore si usa per andare a capo vero?
graaaaaaaaaaazie!!!!

[elmate]

...per quanto riguarda l'applyfilter: adesso sulla WhereCondition gli passo "[bilancio].[data] between 1/5/2005 and 31/5/2005" per quanto riguarda maggio...

i record di maggio ci sono ma il risultato che ottengo è un unico record con la data odierna 20/5/2005...


che posso fare?
qualche santo per favore....