Problemas cn la sentencia UPDATE

[TheoriaX]

quizas algo asi

Código:

Private Sub cmdquitar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdquitar.Click
        Using con As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012")
            con.Open()
 
            Dim cantidadProd  As String = Me.textboxDisponible.Text
            Dim cantidad As String = Me.textboxQuitarCantidad.Text
            Dim queryproducto As String = "UPDATE producto SET cantidad_disponible='" + cantidadProd - cantidad + "' WHERE ID_producto="+cboproducto2.SelectedValue //Checate bien si esa propiedad te da el ID del Producto
            Using cmd As New MySqlCommand(queryproducto, con)
                cmd.Parameters.AddWithValue("@cantidad", TextBox3.Text)
                cmd.ExecuteScalar()
            End Using
        End Using
    End Sub