Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Application.StartupPath & "\ess.mdb")

Dim objCommand As New OleDbCommand()

Dim objDa As New OleDbDataAdapter()

Dim objDs As New DataSet()

Dim objCommandBuilder As New OleDbCommandBuilder()

Dim sSQL As String = "Select * From Clients order by Client"

objCommand.CommandText = sSQL

objCommand.Connection = objConn

objDa.SelectCommand = objCommand

objDa.Fill(objDs, "Clients")

objConn.Close()

Dim i As Integer

cmbClient.Items.Clear()

'*************************************************

'*************************************************

'Load a blank item into the combobox....

Dim dr As DataRow = objDs.Tables(0).NewRow

dr("Client") = vbNullString

dr("id_client") = -1

objDs.Tables(0).Rows.InsertAt(dr, 0)

'*************************************************

'*************************************************

cmbClient.DisplayMember = "Client"

cmbClient.ValueMember = "id_client"

cmbClient.DataSource = objDs.Tables(0)

MessageBox.Show(DirectCast(cmbClient.SelectedItem, DataRowView).Item("Client"))

MessageBox.Show(DirectCast(cmbClient.SelectedItem, DataRowView).Item("id_Client")

Selecting…

cmbContract.SelectedIndex = cmbContract.Items.IndexOf(gblCurrentContract)

Bound…

cmbSeminar.DataSource = dsSeminars.Tables("Seminars")

cmbSeminar.DisplayMember = "SeminarLocation"

cmbSeminar.ValueMember = "SeminarLocation"

Straight From Microsoft’s Help…
 
 Private Sub addButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 comboBox1.Items.Add(textBox1.Text)
 End Sub
 
 Private Sub findButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 comboBox1.BeginUpdate()
 Dim I As Integer
 For I = 0 To 1000
 comboBox1.Items.Add("Item 1" + i.ToString())
 Next
 comboBox1.EndUpdate()
 End Sub
 
 Private Sub addGrandButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 Dim index As Integer
 index = comboBox1.FindString(textBox2.Text)
 comboBox1.SelectedIndex = index
 End Sub
 
 Private Sub showSelectedButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 Dim selectedIndex As Integer
 selectedIndex = comboBox1.SelectedIndex
 Dim selectedItem As Object
 selectedItem = comboBox1.SelectedItem
 
 MessageBox.Show("Selected Item Text: " & selectedItem.ToString() & Microsoft.VisualBasic.Constants.vbCrLf & _
 "Index: " & selectedIndex.ToString())
 End Sub