Access - Boton para añadir 6meses en un formulario access

Tengo un formulario que me filtra fechas caducadas. Esta fecha viene de una consulta que a su vez viene filtrada y modificada, incrementada dos años, de una tabla. Quisiera poner un boton en el formulario que al clickear se añada 6 meses a la fecha original de la tabla (con el consecuente aumento de fecha de la consulta y del formulario).

espero te sirva

Private Sub Comando4_Click()

Dim mes, agno, nueva_fecha As Variant

mes = Month(Me.fecha) + 6
agno = Year(Me.fecha)

If (mes > 12) Then

mes = mes - 12



agno = Year(Me.fecha) + 1

End If

nueva_fecha = Day(Me.fecha) & "/" & mes & "/" & agno


MsgBox "Nueva Fecha:" & nueva_fecha

End Sub

Efectivamente la nueva fecha me sale, ademas le agregue para que me la cargue en el cuadro de texto donde me recoge el dato. Asi al darle el boton ya se me actualiza.

Muchas gracias por tu ayuda!!