Olá! Você pode criar um Form para pedir a data de inicio e data de fim, que deseja consultar, depois carregue o recordset com esse comando:
Set rs = New Recordset
sql = "select * from TABELA where data1 >= #" & txtDataInicio & "# and data1 <= #" & txtDataFim & "#"
rs.Open sql, Con, adOpenStatic, adLockReadOnly
Depois é só jogar os dados que precisa no seu relatório! Espero ter ajudado!!! []s