Carrito de la compra, y DataRow, Problema

[Eloytxo]

Solucionado el primer problema:

Private Sub Page_Load(ByVal s As Object, ByVal e As EventArgs)
If Not Page.IsPostBack Then

CrearCarro()
Else
Micarro = Session("Carrito")
End If

GridView1.DataSource = Micarro
GridView1.DataBind()
End Sub

Function CrearCarro()
Micarro = New System.Data.DataTable("Carrito")

Micarro.Columns.Add("Cantidad", GetType(Integer))
Micarro.Columns.Add("Articulo", GetType(String))
Micarro.Columns.Add("Precio", GetType(Decimal))

Session("Carrito") = Micarro

End Function

Sub Añadir_Articulo()
If Session("Carrito") Is Nothing Then
CrearCarro()
End If
Dim DRArticulo As DataRow

Micarro = Session("Carrito")
DRArticulo = Micarro.NewRow()
DRArticulo("Cantidad") = "2"
DRArticulo("Articulo") = "Vino Cantino"
DRArticulo("Precio") = "64.87"
Micarro.Rows.Add(DRArticulo)
Session("Carrito") = Micarro

GridView1.DataSource = Micarro
GridView1.DataBind()

End Sub

Con est me crea el carro y guarda los valores que le he puesto a mod de prueba. Ahora toca seguir con ello ^^.