TallyInput = InputBox("Enter search below. It could be either by repat no or by any type of field you wish to search.")

TallyResult = "select * from tblRepat where GENDER = '" & optF.Caption & "' AND CIRCUMSTANCES = '" & TallyInput & "' OR GENDER = '" & optF.Caption & "' AND OCCUPATION = '" & TallyInput & "' OR ACTION_TAKEN = '" & TallyInput & "' OR LAST_NAME = '" & TallyInput & "' "
Set TallyRS = myConn.Execute(TallyResult)

    If TallyRS.EOF = True Then
MsgBox "Record does not exist!"
   lvRes.ListItems.Clear
    Else

    MsgBox "Record found!"
    
     lvRes.ListItems.Clear
    Do Until TallyRS.EOF
   Set LS = lvRes.ListItems.Add(, , TallyRS(0))
  
    LS.SubItems(1) = TallyRS(1) & ""
    LS.SubItems(2) = TallyRS(2) & ""
    LS.SubItems(3) = TallyRS(3) & ""
    LS.SubItems(4) = TallyRS(4) & ""
    LS.SubItems(5) = TallyRS(6) & ""
    LS.SubItems(6) = TallyRS(7) & ""
    LS.SubItems(7) = TallyRS(8) & ""
    LS.SubItems(8) = TallyRS(9) & ""
    LS.SubItems(9) = TallyRS(10) & ""
    LS.SubItems(10) = TallyRS(11) & ""
    LS.SubItems(11) = TallyRS(13) & ""
    LS.SubItems(12) = TallyRS(14) & ""
  LS.SubItems(13) = TallyRS(15) & ""
  
    
    TallyRS.MoveNext
    Loop
    End If

CountInput = "SELECT Count(*) AS count FROM tblRepat WHERE GENDER= '" & optM.Caption & "' AND OCCUPATION = '" & TallyInput & "'"

Set CountRS = myConn.Open(CountInput)
Label1.Caption = CountRS.Fields("Count").Value