Si date départ > 1 an alors...

Bonjour,
Voila j'ai fait un code pour que Quand la date départ est passé, le code collaborateur est vidé!
Seulement voila mtn je voudrais faire un code pour que quand la date départ > 1 an, on supprime l'enregistrement!
Je pense que c'est pas long a changer mais je n'arrive pas..

Voici mon code pour que Quand la date départ est passé, le code collaborateur est vidé:

Private Sub Form_Load()

Dim db As Database
Dim rst As Recordset

On Error GoTo Erreur
Set db = CurrentDb
Set rst = db.OpenRecordset("salariés")
With rst
If Not .EOF Then
.MoveFirst
Do Until .EOF
If rst![date départ] < Now() Then
.Edit
rst![Code collaborateur] = "0"
.Update
End If
.MoveNext
Loop
End If

End With

Sortie:
On Error Resume Next
Set rst = Nothing
Set db = Nothing

Erreur:
MsgBox Err.Number & " : " & Err.Description
Resume Sortie

End Sub

Merci d'avance pour votre aide