Sub Search()Dim strCriteria, task As String
If Trim(Me.cboIncomeType.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Please select Payment mode.", buttons:=vbInformation, title:="SOFTWARE"
Me.cboIncomeType.SetFocus
Exit Sub
End If
If Trim(Me.cboIncomeType1.Value & vbNullString) =...