ho seguito i tuoi consigli. Devo dire che funziona tutto correttamente e ti ringrazio per la disponibilità. Alla fine il codice che ho utilizzato è stato il seguente:

codice:
anno = cboAnno.Text
mm = cboMese.ListIndex + 1
gg = Day(DateSerial(anno, mm + 1, 0))

Rs.Open "SELECT * FROM Fattura WHERE Data
BETWEEN #" & mm & "/01/" & anno & "# AND #" & mm & "/" & gg & "/" & anno & "#"