Seguinte em seu programa vc insere duas caixa de texto onde serão informadas as datas, depois usa a seguinte intrução sql antes de chamar a data report.
txtDtini.text e txtDtfim.text
Data1 = format (txtDtini, "mm/dd/yyyy")
Data2 = format (txtDtFim, "mm/dd/yyyy")
'... tem que format a data em mes/dia/ano, o sql inverte, foi, uma explicação que '....peguei junto com o pessoal aqui do forum.
rsTBTabela.Open "Select TBTabela.DtIni, TBAgendaVend.DTFim, From TBTabela Where (TBTabela.DTIni >= #" & Data1 & "#) and (TBTabela <= #" & Data2 & "#);", cn, adOpenKeyset, adLockOptimistic
Cara espero que seja isto que procura, se não for, me desculpe, mas manda de volta que agente ve di novo.
