Запрос с датой

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim Vod As String = IIf(cb1.SelectedIndex > 0, "водитель = '" & cb1.SelectedItem & "' and ", Nothing)
        Dim Addr As String = IIf(fAddr.Text <> "", "адрес = '" & fAddr.Text & "' and ", Nothing)
        Dim Oplata As String = IIf(cb2.SelectedIndex > 0, "форма = '" & cb2.SelectedItem & "' and ", Nothing)
        'Dim startdate As String = Format(DateTimePicker1.Value.Date, "dd.MM.yyyy")
        'Dim enddate As String = Format(DateTimePicker3.Value.Date, "dd.MM.yyyy")
        sql = "select * from заказы where " & Vod & Addr & Oplata & "Дата BETWEEN '" & DateTimePicker1.Value.Date & "' AND '" & DateTimePicker3.Value.Date & "'"
        command = New OleDbCommand(sql, con)
        'command.Parameters.AddWithValue("@startdate", DateTimePicker1.Value.Date)
        'command.Parameters.AddWithValue("@enddate", DateTimePicker3.Value.Date)
        Dim dataSt As New DataSet
        Dim adapter As New OleDbDataAdapter(command)
        adapter.Fill(dataSt, "aa")
        dgv5.DataSource = dataSt
        dgv5.DataMember = "aa"
        dgv5.ClearSelection()
    End Sub

DateTimePicker1.CustomFormat = "dd/mm/yyyy"
 DateTimePicker1.Value.Date

DateTimePicker1.Value.ToShortDateString

Dim Addr As String = "адрес = 'Автозаводское ш-се 6'"
sql = "select * from заказы where " & Addr & " AND Дата BETWEEN " & DateTimePicker1.Value.Date.ToOADate & " AND " & DateTimePicker3.Value.Date.ToOADate