Visual Basic - Variable de vba a consulta de access

Hola, quisiera saber cómo hago para que en vba defina una variable que es fecha inicial y realizar un loop de tal manera que voy sumando un día hasta una fecha final pero cada vez que sumo se ejecute un informe.

fecha inicial = 01/10/2015
mientras fecha inicial < 01/03/2016 haga
imprimir informe
fecha inicial = fecha inicial +1
fin

el informe se ejecuta a partir de una consulta que debe llevar esta variable fecha inicial

Gracias.

Public Sub informeporfecha()
Dim FechaInicial As Date

FechaInicial = #1/10/2015#
Do While FechaInicial < #1/3/2016#
Call imprimirinforme
FechaInicial = DateAdd("d", 1, FechaInicial)
Loop
End Sub

Muchas gracias por tú respuesta, la usaré!!