suma % en un GRID

[guillebomtrasmiti]

he realizado este cambio, pero sigue igual, mismo error
Public Sub sumarporcentaje()

Dim resta As New Integer
Dim resultado As New Integer

Dim com = conexion.CreateCommand

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet

adapt.SelectCommand = com
For Each row As DataGridViewRow In DgTotales.Rows
com.CommandType = CommandType.Text
com.CommandText = "UPDATE " & row.Cells("Pts").Value.ToString & " SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where " & row.Cells("NombreFormaPago").Value.ToString & " <> ('TARJETA CREDITO')"
MessageBox.Show(CStr(adapt.Fill(setda, "IntroduccionDeVentasAhora")))
adapt.Fill(setda, "IntroduccionDeVentasAhora")

Next