[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

[TheAikon]

Up

[biste]

Anziché Command + DataReader utilizza DataAdapter + DataTable

A questo punto puoi usare la DataTable come DataSource della ComboBox e impostare le proprietà DisplayMember e ValueMember

[TheAikon]

Sono alle prime armi su .net...se non erro tu mi stai indicando una soluzione in modalità disconnessa.

Ti dispiacerebbe farmi un esempio (buttando giù un pò di codice) in merito alla mia problematica?

Grazie mille!

[biste]

Private Sub PopolaComboBoxCategorie()
        Dim strSql As String

        strSql = "SELECT * FROM tblGenere Order by genere"

        Dim objDataAdapter As New OleDbDataAdapter(strSql, objConn)


        Dim objTable As New DataTable()

        objDataAdapter.Fill(objTable)

        cmbCategorie.DataSource = objTable
        cmbCategorie.DisplayMember = "Descrizione"
        cmbCategorie.ValueMember = "Codice"

End Sub