Datos de Memoria en Grid

[Oberon]

Hola colegas, realizo una aplicacion para una cafeteria en asp 2.0 y estoy investigando como manejar cada producto que se ingrese en memoria y a la vez incrustarlo en el grid al final dar Click a un boton y enviar los datos a la BD
si alguien tiene una idea o ayuda se le agradeceria mucho....!
les envio algo de lo que he hecho pero aun no funciona bien del todo, cunado inserto el terce registro, me da este error, la linea esta en rojo

....Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index.....

Partial Class _Default
Inherits System.Web.UI.Page
Dim dslocal = Estructura()

Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Dim dr As DataRow = dslocal.tables("Productos").NewRow
Dim i As Integer


For i = 0 To gvCafeteria.Rows.Count - 1
Dim iCodigo As Integer = gvCafeteria.Rows(i).Cells(0).Text
Dim iDescripcion As String = gvCafeteria.Rows(i).Cells(1).Text
Dim iPrecio As Integer = gvCafeteria.Rows(i).Cells(2).Text

Dim idr As DataRow = dslocal.tables("Productos").NewRow

idr("Codigo") = iCodigo
idr("Descripcion") = iDescripcion
idr("Precio") = iPrecio
InsertarNuevaFila(idr)
Next

dr("Codigo") = txtCodigo.Text
dr("Descripcion") = txtDescripcion.Text
dr("Precio") = txtPrecio.Text
dslocal.Tables("Productos").Rows.Add(dr)

gvCafeteria.DataSource = dslocal
gvCafeteria.DataBind()
End Sub

Public Function Estructura()
Dim ds As New DataSet
ds.Tables.Add("Productos")
ds.Tables("Productos").Columns.Add("Codigo")
ds.Tables("Productos").Columns.Add("Descripcion")
ds.Tables("Productos").Columns.Add("Precio")
Return ds
End Function

Public Sub InsertarNuevaFila(ByVal Fila As DataRow)
Me.dslocal.Tables("Productos").Rows.Add(Fila)
gvCafeteria.DataSource = dslocal
Me.gvCafeteria.DataBind()
End Sub
End Class