Cavolo è vero.
Cmq ho scritto DateAdd ma non funziona

Ho scritto:

Dim data As Date

data = Me.Data_attivazione_contratto.Value


If (Me.Frequenza_di_pagamento.Value = "Annuale") Then

Me.Data_scadenza_contratto.Value = DateAdd("yyyy", 1, "data")

Else

Me.Data_scadenza_contratto.Value = DateAdd("yyyy", 3, "data")

End If

Mi dice sulla funziona DateAdd, tipo non corrispondente. Nella variavile data è memorizzato GG/MM/YYYY es. 12/06/2008