Descuento de una columna de una bd de acces

[RooseveltQ]

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

lo estoy haciendo asi hermano, me estoy equivocando en algo..?? necesito ayuda urgente please