Me.Edad = DateDiff("yyyy", Me.Fecha, Date)
If Format(Me.Fecha, "mmdd") > Format(Date, "mmdd") Then
    Me.Edad = Me.Edad - 1
End If 

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)