Access - contador de fechas en access

Tengo una consulta con varias actividades, cada actividad se desarrolla obligatoriamente cada cierto tiempo. Ejemplo
limpieza interna de computadores se hace obligatoriamente cada 10 dias., encontre este código que me muestre las fechas de los siguientes mantenimientos durante un año. pero en se pide la fecha inicial y el tiempo en que se hace la actividad. yo quiero es que tome los valores de los campo de la consulta FECHAINICIAL y el otro campo DIALALPROXIMOMANTENIMIENTO y FECHAFINAL . y me muestre los resultados en otro campo llamado MANTENIMIENTO. que los resultados salgan en las celdas de la misma consulta. y alli esta el problema no se como hacerlo. para que se vean en la consulta de acces no por formulario ni por informes. por favor ayudenme es urgente...


Sub programa24()

Dim FECHAINICIAL As Date
Dim DIASP As Integer
Dim FECHAFINAL As Date
Dim total As Date


total = 0
total2 = FECHAINICIAL
FECHAINICIAL = InputBox("INGRESE FECHA")
DIASP = InputBox("Ingrese Valor")

For I = 1 To 365
total = total + I

FECHAINICIAL = FECHAINICIAL + DIASP
Debug.Print FECHAINICIAL

Next

End Sub