Pb de mise a jour

bonjour,
je suis novice en vb 2005 et mon probleme est le suivant je developpe une application de gestion de stock et je voudrai que lorsque j'ajoute une nouvelle commande dans la table COMMANDE ,le champ quantite initiale de la table PRODUIT se mette aussi a jour mais je j'y arrive pas .J'ai cree une procedure de mise a jour :

Opendatabase()
sql = "update Produit set PRO_qteinit=PRO_qteinit + #" & PC_qteTxt.Text & "# where Produit.PRO_desig = #" & PC_num.Text & "#" 'Produit_cmd.PRO_num
cmd = New OleDb.OleDbCommand(sql)
dta = New OleDb.OleDbDataAdapter(cmd)
cmd.Connection = cnx
cmdb = New OleDb.OleDbCommandBuilder(dta)
dta.Update(dts, "Produit")

Que j'execute a l'ajout d'une nouvelle commande mais sans succes.
Merci de bien vouloir m'aider.

Try
sql2 = "update produit SET PRO_qteinit=PRO_qteinit + " _
& PC_qteTxt.Text & " where PRO_desig = '" & PC_num.Text & "'"
Dim up As New OleDb.OleDbCommand(sql2, cnx)
up.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
:yaisse2:
Avec ce bout de code , ma mise a jour s'effectue sans probleme.