This is what you need;
On your form put an unbound text box and call it txtNextServiceDate. Then put this code in your form.
Private Sub CusServiceDate_AfterUpdate()
Me.txtNextServiceDate = DateAdd("yyyy", 1, [CusServiceDate])
End Sub
Private Sub Form_Current()
Me.txtNextServiceDate =...