Manipular Banco de Dados

Victor, este exemplo me ajudou bastante, espero que te ajude também. Este exemplo pega os campos Codigo e Nome de uma tabela chamada "Transportadoras" de uma base de dados SQL. Mas da pra usar com Access tb, se for o seu caso.

Abraço

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

'mapeia a tabela produtos , monta o sql para selecionar os nomes dos produtos

'e executa o objeto command preenchendo a seguir o dataset

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

DSet.AcceptChanges()

tTbl = DSet.Tables.Item(0)

DSet.Dispose()

dbConn.Close()

'preenche o combo combobox

cmbTransportadora.Text = ""

cmbTransportadora.Items.Clear()

cmbTransportadora.BeginUpdate()

'carrega o combo com o nome dos produtos

For Each tRow In tTbl.Rows

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

cmbTransportadora.EndUpdate()

End Sub