If Trim(DateTimePicker2.DateValue) <> ""And Trim(DateTimePicker4.DateValue) <> ""ThenIf Str2 = ""ThenStr2 = " Where Datesale >= "" & Trim(DateTimePicker2.DateValue) & "" and Datesale <= "" & Trim(DateTimePicker4.DateValue) & "" "ElseStr2 = Str2 & " And Datesale >="" & Trim(DateTimePicker2.DateValue) & "" and Datesale <="" & Trim(DateTimePicker4.DateValue) & "" "EndIfEndIf