Borrar datos el primero de cada mes parte 2

Yo lo que tengo hecho es:

If (forms!T_FEC!FEDIA=IsDate(.[01/mm])) Them 

Forms!T_FEC!Sc26.Form!V_BZ39660T1=0 

End if. 

Pero no me funciona, el error me lo da 01/mm, que lo que no sé cómo ponerlo.