Update no Estoque

[gledson_SoftG 0]

Boa noite galera, por favor me ajudem.

me deparei com um pequeno detalhe.

 

meu update. usando o datagrid. porem qnd eu adiciono varios itens. com valores diferentes. ele nao ta me retornando os valores corretos para fazer o update.

tipo ele pega o primeiro faz o update. e o mesmo valor ta indo para os demais..

me ajudem.

 Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String
                Dim cmd As OleDbCommand
                
                For j = 0 To dgvProdutos.Rows.Count - 1


                    intEntradaProduto = CDec(txtSaldoEstoque.Text) + CDec(dgvProdutos.Rows(j).Cells(7).Value)

                    sql = "UPDATE produtos SET qtdEstoque=? WHERE codigo=" & dgvProdutos.Rows(j).Cells(16).Value
                    cmd = New OleDbCommand(sql, con)

                    cmd.Parameters.Add(New OleDb.OleDbParameter("@qtdEstoque", intEntradaProduto))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@codigo", dgvProdutos.Rows(j).Cells(16).Value))

                    cmd.ExecuteNonQuery()
                Next
                MsgBox("Update do estoque gravado com sucesso.", MsgBoxStyle.Information)

            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using

[KhaosDoctor 242]

O seu código é unico? Isso parece ser um problema de chave.