Pessoal, boa tarde!

Confesso que já li vários tópicos referente ao assunto que abordarei agora, mas não obtive êxito e, por conta disso, detalharei a minha necessidade.

No meu banco de dados da listview, existe um campo de pesquisa,o qual possui um combobox, o qual eu seleciono a coluna que possui os dados a serem filtrados e eu textbox onde se descreve os itens a serem pesquisados.

Vejam o código utilizado no textbox:

If TextBoxFiltro = "" Then

PreencherCabeçalhoLinhas
formato_islista
Exit Sub

If Me.ComboBoxCampos.ListIndex = -1 Then

Me.TextBoxFiltro = ""
Exit Sub
End If

Dim strObjetoBuscar As String
Dim lngResultado As Long
'Dim lngColumna As Long, lngFila As Long
Dim a As Integer
Dim coluna
Dim li

End If
coluna = Me.ComboBoxCampos.ListIndex + 1
lsLista.ListItems.Clear
strObjetoBuscar = TextBoxFiltro.Value
If strObjetoBuscar = "" Then GoTo 99
strObjetoBuscar = LCase(strObjetoBuscar)
For a = 2 To 10000
lngResultado = InStr(1, Plan1.Cells(a, coluna), strObjetoBuscar, vbTextCompare)
If lngResultado > 0 Then
Set li = lsLista.ListItems.Add(Text:=Format(Plan1.Range("A" & a).Value, "000"))
li.ListSubItems.Add Text:=Plan1.Range("B" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("C" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("D" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("E" & a).Value
li.ListSubItems.Add Text:=Format(Plan1.Range("F" & a).Value, " R$ #,##0.00")
li.ListSubItems.Add Text:=Plan1.Range("g" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("h" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("i" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("j" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("k" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("l" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("m" & a).Value
li.ListSubItems.Add Text:=Plan1.Range("n" & a).Value

End If
Next a
99:
Me.Label10.Caption = "Total de Dados: " & Format(Me.lsLista.ListItems.Count, "000")

Desejo inserir outro combobox e outro textbox que façam a pesquisa do 2° critério ex:

Eu pesquiso no critério 1: ALIMENTAÇÃO e no Critério 2: RSTAURANTE, dai apareceria todas as programações com estas informações.

É possível?