Descuento de una BD

[RooseveltQ]

Buenas mis colegas estoy ehstancado ya tengo casi listo un programa para la uni pero no eh podido hacer que cuando le diga veder me haga un descuento de la bd que tengo hecha en access por favor ayuda de urgencia. haci estoy haciendo mi consulta:

Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\yusleydis\tesis_yus.mdb"
Using conexion As New OleDb.OleDbConnection(connstring)
conexion.Open()
Dim CadenaSQL As String
CadenaSQL = ("UPDATE productos SET cantidad=cantidad - '" & ct.Text & " ' WHERE codigo='" & cp1.Text & "'")
Dim cmd As New OleDb.OleDbCommand(CadenaSQL, conexion)
Dim i As Integer = cmd.ExecuteNonQuery
MsgBox("Actualizacion Completa")
conexion.Close()
End Using
End Sub

donde ct.text es el textbox de cantidad y cp1.text es el codigo del producto por favor ayuda en que lo estoy haciendo mal..? :(