Visual Basic - RESTAR/SUMAR VALOR DE TEXTBOX A CAMPO DE ACCES

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Cmd.CommandText = "UPDATE Productos SET Cantidad=Cantidad-@salida Where Codigo=@Codigo"

        Cmd.CommandType = CommandType.Text

        Cmd.Connection = Conn

        Cmd.Parameters.Add("@salidas", OleDbType.Integer).Value = Convert.ToInt32(Me.TxtCantidad.Text)

        Cmd.Parameters.Add("@Codigo", OleDbType.Integer).Value = Convert.ToInt32(TxtCodigo.Text)

        Dim correcto As Integer = Cmd.ExecuteNonQuery

        If correcto > 0 Then

            MessageBox.Show("Datos actualizados correctamente", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else

            MessageBox.Show("No se pudieron actualizar los datos", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End If

End Sub