codice:
Select Case Month(Me!TUO_CONTROLLO)
    Case Is = 1, 3, 5, 7, 8, 10, 12
	if Day(Me!TUO_CONTROLLO) > 31 then msgbox "il mese inserito ha 31 giorni, verifica valore"
    Case Is = 4, 6, 9, 11
        if Day(Me!TUO_CONTROLLO) > 31 then msgbox "il mese inserito ha 30 giorni, verifica valore"
    Case Is = 2
        If Year(Me!TUO_CONTROLLO) Mod 4 = 0 Then
            if Day(Me!TUO_CONTROLLO) > 29 then msgbox "nell'anno inserito febbraio è bisestile"
        Else
            if Day(Me!TUO_CONTROLLO) > 28 then msgbox "nell'anno inserito febbraio NON è bisestile
        End If
End Select
se comunque ti da lo stesso problema potresti provare ad usarla sul campo settando il formato non come data ma come testo normale (almeno nella maschera). giusto per provare.