Alex Andrade
19 de Agosto del 2005

Como puedo mostar dos campos en un combobox los cuales son codigo y descripcion, a continuacion describo como tengo la codificacion y quisiera ver como hacer para mostar el campo descripcion.

Dim CN1 As New OleDb.OleDbConnection()
Dim CNSTR1 As String
Dim SELECTSTR1 As String
CNSTR1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Ubicacion
CN1.ConnectionString = CNSTR1
CN1.Open()
CN1.Close()
SELECTSTR1 = "SELECT IDCODI,DESCRIPCION FROM INMAES"
Dim DA1 As New OleDb.OleDbDataAdapter(SELECTSTR1, CN1)
Dim DS1 As New DataSet()
DA1.Fill(DS1, "INMAES")
Cmbingr.DataSource = DS1.Tables("INMAES")
Cmbingr.DisplayMember = DS1.Tables("INMAES").Columns(0).ToString
Cmbingr.ValueMember = DS1.Tables("INMAES").Columns(0).ToString
Cmbingr.Visible = True