Private Sub LinkComboTransp()

'Retorna os nomes das transportadoras da tabela transportadoras

Dim dbConn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(OleDbConexao)

dbConn.Open()

Dim DSet As New DataSet

Dim cmd As System.Data.OleDb.OleDbCommand

Dim dbAdaptr As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter

'cria o objeto datarow e datatable

Dim tRow As DataRow, tTbl As DataTable

With dbAdaptr

.TableMappings.Add("Table", "Transportadoras")

cmd = New System.Data.OleDb.OleDbCommand("Select Codigo, Nome from Transportadoras order by Nome", dbConn)

cmd.CommandType = CommandType.Text

.SelectCommand = cmd

.Fill(DSet)

.Dispose()

End With

'preenche o combo Transportadoras

'carrega o combo com o nome das transportadoras

For Each tRow In tTbl.Rows

cmbTransportadora.Items.Add(New MenuItemData(tRow("Codigo"), tRow("Nome").ToString))

Next

End Sub

Como eu faço para, no caso de um insert, eu pegue o código da transportadora e não o nome que aparece na combo?