Ciao a tutti..
in questo codice..

...
Private Sub Comando25_Click()
Dim conteggio As String
Dim miodb As DAO.Database
Dim mioRST As DAO.Recordset

conteggio = DCount("Giorno", "T_Mese", WHERE(T_Mese.Mese = Me.Combo_Mese.Column(0)))
MsgBox conteggio


Set miodb = Nothing
Set mioRST = Nothing


End Sub
...
al click del puslante mi da errrore di compilazione: Sub o Function non definita...???
Non capisco il problema!! aiutoooo