Cita:
Iniciado por meula 
Ejecuta el programa
Pon un punto de interrupción en esta línea:
com.CommandText = "UPDATE " & DgTotales.Columns.Item("Pts").Index.ToString & " SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where NombreFormaPago <> ('TARJETA CREDITO')"
copia el contenido de esta variable, com.CommandText
Ejecutala en la Base de datos que estas utilizando (creo que Access).
¿Funciona?
Lo que meula te esta pidiendo, es que verifiques que estas formando el query bien. Por ejemplo, si DgTotales.Columns.Item("Pts").Index.ToString te regresa una cadena vacia, tu update final va a ser "UPDATE " + "" + "SET Pts = ..."