eu reparei o uso de aspas simples tire elas tente novamente
Set CadCli = Dados.OpenRecordset("Select * from CadCli Where DTCADASTRO >= # " & Format(txt(2), "MM/DD/YYYY") & "# and DTCADASTRO <= #" & Format(txt(3), "DD/MM/YYYY") & "# ")
caso não funcione faça o seguinte e acabe com seu impasse
Set CadCli = Dados.OpenRecordset("Select data from CadCli")
do while not cadcli.EOF
if cadcli("data")>=text(2).text and cadcli("data") <= text(3) then
' local onde você irá exibir o resultado
end if
cadcli.movenext
loop
e pronto acaba seu impasse
