sumar el monto de cada fila datagrid

[PACO_TORG]

creo que algo estoy haciendo mal
cuando lo ejecuto me dice que el indice no esta permitido, pero si le pongo uno que me acepte ,por ejemplo el 0 que serian las piezas no hace la suma de todas formas solo envia un cero al label1.. ya estuve tratando de muchas formas y no lo consigo..haber si tu le encuetras el error..
te agradezco mucho
Set MiRecordset = New ADODB.Recordset

MiRecordset.Open "select piezas,producto2,total from notas_detalle where notanumero = 0", MiConexion, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = MiRecordset

Dim suma As Integer
Dim i As Integer

DataGrid1.Col = 2 'se supone que esta seria la columna 3(total) donde estan los valores que quiero sumar
For i = 0 To DataGrid1.Row - 1
DataGrid1.Row = i
suma = suma + Val(DataGrid1.text)
Label1 = suma
Next