Private Sub cbFilter_Click()
  If cbFilter.Text = "Particular" Then
        mSearch "Particular :", True, False, False
    ElseIf cbFilter.Text = "Code Number" Then
        mSearch "Code Number :", True, False, False
    ElseIf cbFilter.Text = "PO Reference Number" Then
        mSearch "PO Reference Number :", True, False, False
    ElseIf cbFilter.Text = "Unit" Then
         mSearch "Unit :", True, False, False
    ElseIf cbFilter.Text = "Quantity" Then
         mSearch "Quantity :", True, False, False
    End If
End Sub

Private Sub cmdFilter_Click()
    If cbFilter.Text = "Particular" Then
            sFilter = "Particular like '%" & txtSearch.Text & "%'"
        ElseIf cbFilter.Text = "Code Number" Then
            sFilter = "Code_Number like '%" & txtSearch.Text & "%'"
        ElseIf cbFilter.Text = "PO Reference Number" Then
            sFilter = "PO_Reference_Number like '%" & txtSearch.Text & "%'"
        ElseIf cbFilter.Text = "Quantity" Then
             sFilter = "Quantity like '%" & txtSearch.Text & "%'"
        ElseIf cbFilter.Text = "Unit" Then
             sFilter = "Unit like '%" & txtSearch.Text & "%'"
        End If
      
        adoItem.Recordset.Filter = sFilter
        isFilter = True
       
End Sub