E in tutto il suo splendore ecco la soluzione al problema

1. Creo una classe clsComboID

codice:
    Public Property id As Integer
    Public Property categoria As String

    Sub New(ByVal id As Integer, ByVal categoria As String)
        Me.id = id
        Me.categoria = categoria
    End Sub

    Public Overrides Function ToString() As String
        Return Me.categoria
    End Function
2. Utilizzo la mia classe per creare il contenuto della combobox

codice:
 frmClienteNuovo.cmbCategoria.Items.Add(New clsComboID(id:=reader("id"), categoria:=reader("categoria")))
3. Estrapolo i dati che mi servono

codice:
Dim chiave As String
        If cmbCategoria.SelectedIndex > -1 Then
            chiave = CType(cmbCategoria.SelectedItem, clsComboID).id.ToString()
        End If
e il gioco è fatto! A volte una sigaretta aiuta più che fare mille tentativi