combobox, valor y texto

[hector2c]

mi pregunta es la siguiente:

tengo un data set que añado a un combobox

Private Sub BindComboBox()
ComboBox1.DataSource = DataSet1.Tables("Suppliers")
ComboBox1.DisplayMember = "ProductName"
End Sub

mi pregunta es como agregar el id o un valor, similar a como se hacia en html.

<select>
<option value=1>Oficina</option>
<option value=2>Escritorio</option>
</select>

como aparte de agregar el texto "oficina, escritorio" agregar el ide de la categoria seleccionada, hay alguna otro metodo aparte del DisplayMember, para agregar el valor real ???

estoy trabajando en agregar nuevos productos, pero estos deben tener categorias, asi que pongo un combo y el usuario selecciona el combo, pero al momento de insertar este nuevo producto, no tengo el IDE de su categoria mostrado en el combo...

espero entiendan, gracias por toda su ayuda