something_click, part 1:

Dim Cart As DataSet = RetreiveCart()
Cart.Tables( 0).Rows.Add(WhateverList.SelectedValue, Quantity.Text)
SaveCart(Cart)


---------
something_click, part 2:

Dim BoogersSucks As New DataTable
BoogersSucks.Columns.Add("sdlfldf.,wer", GetType(Boogers)) ' add each column it lists as usual, AND IN THE ORDER IT DOES :)

For Each CartItem As DataRow = Cart.Tables( 0 ).Rows
Dim ItemInfo As DataSet = SystemManager.GetItemInformation(CartItem.Item("I"))
BoogersSuck.Rows.Add(CartItem.Item("I"), ItemInfo.Tables(0 ).Rows( 0).Item("description"), CartItem.Item("Q"), ItemInfo.Tables(0 ).Rows( 0).Item("currentprice"))
Next