Dbcombo

[mauriciolangea]

quiero manejar éste objeto, pero quiero hacer por código ...

actualmente estoy trabajando con ADO sobre ORACLE y cargo una ComboBox de ésta manera ...

SQL = "SELECT CODIGO, NOMBRE " _
+ "FROM TABLA WHERE ESTADO = 'V' " _
+ "ORDER BY CODIGO"
Call Ejecuta("Q")

Do Until rs.EOF
combo1.AddItem rs![CODIGO] + " .- " + rs![NOMBRE]
rs.MoveNext
Loop
combo1.ListIndex = 0

lo que me funciona bién, sin embargo quiero usar el DBCOMBO, actualmente he hecho éste código ...

SQL = "SELECT CODIGO, NOMBRE " _
+ "FROM TABLA " _
+ "WHERE ESTADO = 'V' " _
+ "ORDER BY CODIGO"
Set rsSalas = New ADODB.Recordset
rsSalas.Open SQL, OraSession

With DBCombo1
Set .DataSource = rsSalas

.DataField = "COD_SALPRO"
End With

bueno hasta éste punto me funciona, o algo así puesto que lo único que me muestra es el promer registro de la TABLA