Private Sub Command1_Click()
Dim Too As Date
Dim from As Date
from = Format(DTPicker1, "mm/dd/yyyy")
Too = Format(DTPicker2, "mm/dd/yyyy")
Set RS = New ADODB.Recordset
RS.Open "Select * FROM TableName Where Date Field BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# ", Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS
End Sub