Ah, tu vuoi che venga scritto il numero dell'item, oltre alla "descrizione", ho capito giusto?
Ma in tal caso basta fare così:

codice:
frmClienteNuovo.cmbCategoria.Items.Add(reader("id") & "|" & reader("categoria"))
No? concateni in una stringa ID e Categoria e lo aggiungi...