Problemas cn la sentencia UPDATE

[Ka0stj]

Ya cambiaste la sentencia cmd.ExecuteScalar por cmd.ExecuteNonQuery()?

Por otro lado:

Dim queryproducto As String = "UPDATE producto SET cantidad_disponible='" & Convert.ToDouble(cantidadProd) - Convert.ToDouble(cantidad) &
"' WHERE ID_producto=" & cboproducto2.SelectedValue

Asegurate también que en las propiedades de DisplayMember y ValueMember de tu ComboBox cboproducto2 las tengas correctas, de tal forma que no tengas problemas con esta sentencia que agregas al UPDATE cboproducto2.SelectedValue