Dim reader As MySqlDataReader
    reader = command.ExecuteReader(CommandBehavior.CloseConnection)

    While reader.Read()

        Dim xValues() As String = reader("category")


    End While

    connection.Close()