Yo lo eh hecho de la siguiente manera
Código
Saludos. espero te sea de ayuda.
Dim MyCommand As OleDb.OleDbCommand Dim MyAdapter As New OleDb.OleDbDataAdapter Dim MyConexion As New OleDb.OleDbConnection MyConexion.ConnectionString = "provider=microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & RutaBD & " ;persist security info=false" MyCommand = MyConexion.CreateCommand MyCommand.CommandText = "SELECT * FROM Clientes" MyAdapter.SelectCommand = MyCommand Dim Dt_Cliente As New DataTable MyAdapter.Fill(Dt_Cliente) MicomboBox.DataSource = Dt_Cliente MicomboBox.DisplayMember = "Nombre" MicomboBox.ValueMember = "ID"