potrebbe interessarti questo mio spezzone di un codice?
nel caso...(attenzione l'apice singolo inserito accanto al doppio apice):
datavalida1 = Format$(DateBox1.Value, "dd/mm/yyyy hh:nn:ss")
datavalida2 = Format$(DateBox2.Value, "dd/mm/yyyy hh:nn:ss")
where = sSQL & " WHERE timestring <'" & datavalida1 & "'"
between = sSQL & " WHERE timestring BETWEEN '" & datavalida1 & "' AND '" & datavalida2 & "' order by time_ms"