Dim Vcard As New Window1
 
        If InputText.Length = 0 Then
            ButtonEnable()
        Else
            ButtonDisable()
        End If
 
        NameList.Clear()
        IndexList.Clear()
 
        If MySqlOpen = True And InputText.Length > 0 Then
 
            NamenBox.Items.Clear()
            Dim SQLCommand As New MySqlCommand("SELECT * FROM users WHERE" & _
              "usernname LIKE '" + InputText + "%';", SQLConnection)
            Dim SQLReader1 As MySqlDataReader = SQLCommand.ExecuteReader
 
            While (SQLReader1.Read)
                NameList.Add(SQLReader1.GetString(3) + "  " + _
                  SQLReader1.GetString(2))
                IndexList.Add((SQLReader1.GetString(0)))
                NamenBox.Items.Add(NameList.Item(NameList.Count - 1))
            End While
 
            SQLReader1.Close()
 
            activate_Buttons()
 
        Else
            NamenBox.Items.Clear()
        End If