RE:Como sumar un Datagrid
Tienes que utilizar el evento ItemdataBound del Grid..y hacer algo así
Dim Total As Single = 0
Public Sub CalcularTotal(ByVal sender As Object, ByVal e As DataGridItemEventArgs) handles Grid.ItemDataBound
'Primero hay que asegurar que se trata de un Item ó de un AlternativeItem
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
'Se convierten los items que hay en las celdas
Dim tmp As Single = Convert.ToSingle(DataBinder.Eval(e.Item.DataItem, "Campo1"))
'Se suman los valores a las variables "Total"
Total += tmp
'Si la fila es el pie del Grid, se imprimen los totales
ElseIf e.Item.ItemType = ListItemType.Footer Then
e.Item.Cells(4).Text = "Total: " & CStr(Total)
End If
End Sub