'Routine to perform a quicksearch according to name
    'Clear the listview first
    ListView1.ListItems.Clear
    flag99 = 0

    Open App.Path & "\contactfile.rnd" For Random As #1 Len = Len(contactrecord)
        While Not EOF(1)
            Get #1, , contactrecord
            If contactrecord.ID = Text1.Text Then
                    If contactrecord.ID > 999 Then
                        i = i + 1
                        ListView1.ListItems.Add i, , contactrecord.ID
                        ListView1.ListItems(i).ListSubItems.Add , , contactrecord.Forename & contactrecord.Surname
                        ListView1.ListItems(i).ListSubItems.Add , , contactrecord.Category
                        'add the contact detail to listview
                        flag99 = 1
                    End If
            End If
        Wend
    Close #1

    If flag99 = 0 Then
        msgnomatch = MsgBox("No Records Match ", vbOKOnly, "No match")
            If msgnomatch = vbOK Then

            End If
    End If