suma la cantidad solo 1º celda

[guillebomtrasmiti]

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

Dim com1 = conexion.CreateCommand
Dim adapt1 As New OleDbDataAdapter
Dim setda1 As New DataSet

adapt1.SelectCommand = com1
adapt.UpdateCommand = com

com1.CommandType = CommandType.Text

com1.CommandText = "SELECT reg,Cantidad,Pts,Fecha,NombreFormaPago,IvaVenta,Ba rra,NombTerminal From IntroduccionDeVentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and IvaVenta = 18 and Fecha BETWEEN @FI AND @FF ORDER BY reg"

'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
com1.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
com1.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)
com1.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com1.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))
adapt1.Fill(setda, "IntroduccionDeVentasAhora")

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts / (" & TxtPorcentaje.Text & "/100),2) Where NombreFormaPago <> ('TARJETA CREDITO')"


conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteScalar()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

amigos...estoy enamorado de vosotros....se que me quereis...y yo a vosotros también, pero no hay mandera humana, hice lo mismo que ponía en el link..y el cambio resulta a toda la tabla y no a lo filtrado en el grid...fijaossss este es mi código