Una strada un po' più lunga ma certamente efficace è quella di aggiungere un campo Mese alla tabella.
E' chiaro che quando fai le registrazioni/modifiche devi inserire appunto il mese
Esempio:
Dim Mese as integer
Mese = Month(DateTimePicker.value)
una volta fatto ciò potrai costruire la query su quel campo.
"SELECT * FROM TUA_TABELLA WHERE MESE = " & TextBox.text"
o meglio ancora:
Dim Mese as integer
Mese = Integer.Parse(TextBox.text)
"SELECT * FROM TUA_TABELLA WHERE MESE = " & Mese"
Tutto ciò se il tuo codice non ha problemi.
Ciao
Domenico