Recorre el Grid para sumar esa columna
Dim rows As Integer = Me.grv_lista_inspeccion.Rows.Count
Dim i As Integer = 1
Dim suma as Double
While i < rows
'guardas el valor de la multiplicacion (recuerda hacer el parseo si es necesario)
Dim valorMulti as Double=ConvertToDouble(Me.grv_lista.Rows(0).Cells( 2).Text) * ConvertToDouble(Me.grv_lista.Rows(0).Cells(3).Text )
Me.grv_lista.Rows(i).Cells(4).Text =valorMulti
suma=suma+valorMulti
i = i + 1
End While
Me.txt_costo_prod.text=suma
