Prova De Aptidão Profissional - SoS PeoPleWaRe

[P3dr0]

Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Pedro Fernandes\Desktop\my precious\escola\PRojecto final de curso\Gesturo\Gesturo\GesturoDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim db As New SqlConnection(constr)
db.Open()
Dim varsql As String
varsql = "UPDATE Produto SET Quantidade_Em_Stock = '" & Quantidade_pos_venda & "' WHERE Cod_produto ='" & Codigo_produto & "'"
Dim cmd As New SqlCommand(varsql, db)
cmd.ExecuteNonQuery()
db.Close()
MsgBox("Venda realizada com sucesso!", MsgBoxStyle.Information, "Sucesso!")

ja tinha metido em baixo...

o quantidade pos venda é a subtracção em questao...

e ele corre isto tudo sem problemas e mostra a msg box sem erro nenhum e tal, mas dpx pimba, vou consultar a tabela e a quantidade continua igual xD