HELP CODE: Search All Category

Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
Listview.LabelEdit = lvwManual
Listview.FullRowSelect = True
Listview.GridLines = True
Listview.View = lvwReport
cboCategory.Clear
cboCategory.AddItem "ID Owner"
cboCategory.AddItem "All"
cboCategory.ListIndex = 0
Call RefreshListview
End Sub

On Error GoTo errorsearch
If cboCategory.ListIndex = 0 Then
FindRecordset "Select * From Finder"
Call refreshDataSearch
Else
FindRecordset "Select * From Finder Where Owner like '%" & txtSearch.Text & "%';"
Call refreshDataSearch
End If
Exit Sub:
errorsearch:
MsgBox Error.Description, vbCritical, "Error"
Set FindCon = Nothing
Set FindRs = Nothing
End
End Sub