Visual Basic Foro

Hola que tal amigos, alguien me puede ayudar a solucionar un problema que tengo sobre la busqueda por rangos de fechas con una bd de access,
estoy haciendo en un formulario de prueba y el codigo que utilizo seria la siguiente,:
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim SrtSQL As String

'''''---------------forma 1.... que no me funciona.........
'strSQL = "Select * From [Datos]where [fecha1] Between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# AND fecha1 #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"
'Debug.Print strSQL
'MsgBox SrtSQL

'''''---------------forma 2.... que tampoco me funciona.........
rs.Source = "SELECT * FROM Datos WHERE fecha1 >= Between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# AND fecha1 <= #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"

MsgBox rs.Source ' para verificar el formato de la fecha a buscar

Set DataGrid1.DataSource = rs   ' aca mostramos los datos encontrados en un datagrid


'''''---------------forma 3.............

''rs.Source = "Select*from Datos where fecha1 >=#" & DTPicker1.Value & "# AND fecha1<= #" & DTPicker2.Value & "#"
End Sub


desde ya muchas gracias