Carrito de la compra, y DataRow, Problema

[Eloytxo]

Hola a todos. Tengo un problema al crear las filas para insertar en una tabla que haría las veces de carrito de la compra. He mirado varios post que había por ahi, pero ahora no hay manera de encontrarlos...

El caso, es que al intentar crear un dataRow Me salta una Excepcioón NullReferenceException. Os dejo mi código (Está para pruebas, no para funcionar como tal), a ver si véis dónde tengo el fallo.
Gracias!!

Dim DRArticulo As System.Data.DataRow
Dim Micarro As System.Data.DataTable


Private Sub Page_Load(ByVal s As Object, ByVal e As EventArgs)
If Not IsPostBack Then
makeCart()
Else
Micarro = Session("Carrito")

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

Function makeCart()
If Session("Carrito") Is Nothing Then
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 If
End Function

Sub Añadir_Articulo()



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

GridView1.DataSource = Micarro
GridView1.DataBind()

End Sub

la línea Roja es la que me hace lanzar la excepción :S

[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 ^^.