Search button to filter data

[Emmanuel]

   Else    strCriteria = "[DATE] >= " & Format(Me.OrderDateFrom, "\#mm\/dd\/yyyy\#") & _
                  " And [DATE] <= " & Format(Me.OrderDateTo, "\#mm\/dd\/yyyy\#") & _
                  " And [PAYMENT_FORM] = '" & Me.cboIncomeType1 & "'" & _                   " And [PAYMENT_MODE] = '" & Me.cboIncomeType & "'"