Search Issue

Private Sub cmdRefresh_Click()
Call RefreshListview
lblSearch = Listview.ListItems.Count
End Sub
Private Sub Form_Load()
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 "All"
cboCategory.ListIndex = 0
Call RefreshListview
lblSearch = Listview.ListItems.Count
End Sub
Private Sub refreshDataSearch()
Dim Itmx As ListItem
EmployeeMain.Listview.ListItems.Clear
While Not FindRs.EOF = True
Set Itmx = EmployeeMain.Listview.ListItems.Add(, , FindRs.Fields("Owner"))
Itmx.SubItems(1) = FindRs.Fields("IDNumber")
Itmx.SubItems(2) = FindRs.Fields("Status")
Itmx.SubItems(3) = FindRs.Fields("Department")
Itmx.SubItems(4) = FindRs.Fields("Acquired")
Itmx.SubItems(5) = FindRs.Fields("Released")
FindRs.MoveNext
Wend
End Sub
Private Sub txtSearch_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Call cmdSearch_Click
End Sub
Private Sub cmdSearch_Click()
If cboCategory.ListIndex = 0 Then
FindRecordset "Select * From Finder Where Owner like '%" & txtSearch.Text & "%' or IDNumber like '%" & txtSearch.Text & "%' or Acquired like '%" & txtSearch.Text & "%';"
Call refreshDataSearch
lblSearch = Listview.ListItems.Count
End If
Exit Sub:
Set FindCon = Nothing
Set FindRs = Nothing
End
End Sub
Private Sub Listview_Click()
On Error GoTo errorlistview
lblMonitor = Listview.SelectedItem.Text
Exit Sub:
errorlistview:
MsgBox "No I.D. to select!", vbExclamation, "Status"
End Sub