eu faço assim (banco access),
campos no banco (DataTime)
---------------------
Dim Formula2 As String
Formula2 = ""
Formula2 = "({CadSaidaMat.DataSaida} >= DATE(" & Mid$(Text1.Text, 7, 4) & "," & Mid$(Text1.Text, 4, 2) & "," & Mid$(Text1.Text, 1, 2) & "))"
Formula2 = Formula2 & " AND ({CadSaidaMat.DataSaida} <= DATE(" & Mid$(Text2.Text, 7, 4) & "," & Mid$(Text2.Text, 4, 2) & "," & Mid$(Text2.Text, 1, 2) & "))"
.SelectionFormula = Formula2