Codenstuff.com

Private Sub searchbox_TextChanged(sender As System.Object, e As System.EventArgs) Handles searchbox.TextChanged
        If searchby.Text = "Username" Then
            searchstr = "SELECT accountinfo.fname, accountinfo.lname, accounts.EMail " & _
                "FROM accountinfo WHERE Username like '%" & searchbox.Text & "%'"
        ElseIf searchby.Text = "Email" Then
            searchstr = "SELECT * FROM accounts WHERE EMail like '%" & searchbox.Text & "%'"
        ElseIf searchby.Text = "Last Name" Then
            searchstr = "SELECT * FROM accountinfo WHERE lname like '%" & searchbox.Text & "%'"
        ElseIf searchby.Text = "Phone" Then
            searchstr = "SELECT * FROM accountinfo WHERE phone like '%" & searchbox.Text & "%'"
        End If
        Dim fname, lname, EMail
        CONNECTION.Open()
        cmd = New MySqlCommand(searchstr, CONNECTION)
        dr = cmd.ExecuteReader()
        ListView1.Items.Clear()

        Do While dr.Read()

            fname = (dr.Item("fname").ToString())
            lname = (dr.Item("lname").ToString())
            EMail = (dr.Item("EMail").ToString())


            Dim lv As ListViewItem = ListView1.Items.Add(fname)
            lv.SubItems.Add(lname)
            lv.SubItems.Add(EMail)
        Loop
        dr.Close()
        CONNECTION.Close()
        cmd.Dispose()
    End Sub