avevo il tuo stesso problema.

appena risolto grazie a teolo

cer1Sc = Format(TexFdata1.Text, "dd/mm/yyyy")
cer2Sc = Format(TexFdata2.Text, "dd/mm/yyyy")

RecRS.Open "select * from scadenze where data >= #" & cer1Sc & "# and data <= #" & cer2Sc & "# order by data"

prova e fammi sapere

by
gyonny