Visual Basic - problema con descuento de stock en datagridview

cmd.Connection = conexionstock

cmd.CommandType = CommandType.Text

For Each row As DataGridViewRow In DataGridView1.Rows

    cmd.Parameters.AddWithValue("@cantidad", row.Cells("cantidad").Value)

    cmd.Parameters.AddWithValue("@codigo", row.Cells("codigo").Value)

Next

sql = " UPDATE STOCK SET CANTIDAD = CANTIDAD - @cantidad WHERE ID = @codigo "

cmd.CommandText = sql

Try

    cmd.ExecuteNonQuery()

Catch ex As Exception

    MsgBox(ex.ToString)

End Try

':::Procedimiento para conexion a Access

Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Tutoriales\Tutoriales.mdb")

':::Declaramos nuestra variable Sql que almacenara nuestra consuta

Dim Sql As String = ""

':::Usamos un ciclo For Each para recorrer nuestro DataGridView llamado DataGridView1

For Each Row As DataGridViewRow In DataGridView1.Rows

		':::Obtenemos los valores que vamos a pasar a nuestra consulta para ser guardados

		Dim cantidad As Integer = Row.Cells("Cantidad").Value

		':::Codigo

		Dim Codigo As Integer = Row.Cells("Codigo").Value

		':::Creamos nuestra consulta de tipo Insert y le pasamos nuestros valores

		Sql = " UPDATE STOCK SET CANTIDAD = CANTIDAD - " & cantidad & " WHERE ID = " & Codigo & " "

	    Dim cmd As New OleDbCommand(Sql, Con)

           Try

               Con.Open()

               cmd.ExecuteNonQuery()

               Con.Close()

           Catch ex As Exception

               MsgBox("No se pueden actualizar los registro por: " & ex.Message, MsgBoxStyle.Critical, ":::Aprendamos de Programación:::")

           End Try

Next