filter with textbox AND combinatedbox?

[laghetto]

hi!

is it possible to modify this code using a combobox for one of filter?
(the change event call this sub)

Private Sub ApplyFilter()
Dim strR As String
Dim sFiltro As String

sFiltro = "mansione LIKE '" & filtr(Me.filtro_mans2) & "*' " & _
"AND qualifica_man LIKE '*" & filtr(Me.filtro_qual2) & "*' " & _
"AND IdAnno LIKE '*" & filtr(Me.filtra_anno2) & "'"

Me.Filter = sFiltro
Me.FilterOn = True

End Sub

best regards

lg