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     
  
 
