[VB.NET] Popolare ComboBox

[TheAikon]

Salve ragazzi non riesco a risolvere la seguente problematica:

In Vb 6 per popolare una combobox associando un id identificativo al valore visualizzato, utilizzavo il seguente codice:

Do Until objRs.EOF
      
      cmbCategorie.AddItem objRs("genere")
      cmbCategorie.ItemData(cmbCategorie.NewIndex) = objRs("ID")
    
    
      objRs.MoveNext
Loop

In VB.Net riesco solo ad inserire la voce ma non ad associargli l'id.
Ecco il codice che utilizzo:

Private Sub PopolaComboBoxCategorie()
        Dim strSql As String

        strSql = "SELECT * FROM tblGenere Order by genere"

        Dim objCommand As New OleDbCommand(strSql, objConn)

        Dim objReader As OleDbDataReader = objCommand.ExecuteReader

        While objReader.Read()

            cmbCategorie.Items.Add(objReader.GetString(1))
        End While

        objReader.Close()
End Sub

Come posso risolvere la cosa?
Grazie mille a tutti