Как сделать поиск по датам - VB

Формулировка задачи:

На форме есть DTPicker1 и DTPicker2 как сделать что бы при выборе дат поиск искал по датам начало брал с DTPicker1 а конец брал с DTPicker2 и по этим параметрам выводил данные в Spreadsheet1

Spreadsheet1.Sheets("Sheet1").Cells.Select
Spreadsheet1.Selection.Clear
Spreadsheet1.Sheets("Sheet1").Range("A1") = "Дата"
Spreadsheet1.Sheets("Sheet1").Range("B1") = "Рег номер"
Spreadsheet1.Sheets("Sheet1").Range("C1") = "Цена"
Spreadsheet1.Sheets("Sheet1").Range("D1") = "Покупатель"
 
With Baza.Spreadsheet1.Sheets("ProdajaK")
e = 2
r = 1
Do While .Cells(e, 1) > ""
If DTPicker1 = .Cells(e, 2) Then
r = r + 1
Spreadsheet1.Sheets("Sheet1").Cells(r, 1) = .Cells(e, 2) 
Spreadsheet1.Sheets("Sheet1").Cells(r, 2) = .Cells(e, 1) 
Spreadsheet1.Sheets("Sheet1").Cells(r, 3) = .Cells(e, 3) 
Spreadsheet1.Sheets("Sheet1").Cells(r, 4) = .Cells(e, 4) 
End If
e = e + 1
Loop
End With
Spreadsheet1.Sheets("Sheet1").Columns("A:A").Select
Spreadsheet1.Selection.NumberFormat = "m/d/yyyy"
Spreadsheet1.Sheets("Sheet1").Range("A1").Select

Решение задачи: «Как сделать поиск по датам»

textual
                            Листинг программы 
                        

                            Spreadsheet2.Sheets("Sheet1").Cells.Select
Spreadsheet2.Selection.Clear
Spreadsheet2.Sheets("Sheet1").Range("A1") = "Г„Г*ГІГ*"
Spreadsheet2.Sheets("Sheet1").Range("B1") = "ГЌГ*ГЁГ¬ГҐГ*Г®ГўГ*Г*ГЁГҐ"
Spreadsheet2.Sheets("Sheet1").Range("C1") = "Г–ГҐГ*Г*"
 
 
With Spreadsheet1.Sheets("sheet1")
e = 2
r = 1
Do While .Cells(e, 1) > ""
 
If DTPicker1 >= Spreadsheet1.Sheets("sheet1").Cells(e, 1) Or DTPicker2 >= Spreadsheet1.Sheets("sheet1").Cells(e, 1) Then
r = r + 1
Spreadsheet2.Sheets("Sheet1").Cells(r, 1) = .Cells(e, 1) 'Text2.Text
Spreadsheet2.Sheets("Sheet1").Cells(r, 2) = .Cells(e, 2) 'Text2.Text
Spreadsheet2.Sheets("Sheet1").Cells(r, 3) = .Cells(e, 3) 'Text3.Text
 
End If
e = e + 1
Loop
End With
Spreadsheet2.Sheets("Sheet1").Columns("A:A").Select
Spreadsheet2.Selection.NumberFormat = "m/d/yyyy"
Spreadsheet2.Sheets("Sheet1").Range("A1").Select
                        