Prova De Aptidão Profissional - SoS PeoPleWaRe

[P3dr0]

opah isto agora ta me aqui a dar um problema...

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!")

E que finalizo a venda e tal, mas o programa não actualiza nada xD, se alguem souber o que ta mal neste código força ^^