If Trim(DateTimePicker2.DateValue) <> ""And Trim(DateTimePicker4.DateValue) <> ""Then
If Str2 = ""Then
Str2 = " Where Datesale >= "" & Trim(DateTimePicker2.DateValue) & "" and Datesale <= "" & Trim(DateTimePicker4.DateValue) & "" "
Else
Str2 = Str2 & " And Datesale >="" & Trim(DateTimePicker2.DateValue) & "" and Datesale <="" & Trim(DateTimePicker4.DateValue) & "" "
EndIf
EndIf