Visual Basic - Llenar ventana del DataCombo

Hola a todos!!!
Como hago para que en la ventana del datacombo aparezca el texto del primer registro del datacombo?

Tengo el datacombo llenado con esto...

Set DComboProd.RowSource = rs
DComboProd.ListField = "Descripcion"
DComboProd.BoundColumn = "IdProducto"

O sea, necesito el equivalente al ListIndex = 0 del ComboBox.
Por favor, si alguien me puede decir.
Muchas gracias.

proba esto a ver si funciona, yo lo solucione asi

Set DComboProd.RowSource = rs
DComboProd.Text = rs!descripcion
DComboProd.ListField = "Descripcion"
DComboProd.BoundColumn = "IdProducto"

suerte, saludos

Naturalmente, viene de una consulta, personalmente lo solucionaria asi:

CadenaSQL = "SELECT PLL_DOCUM, DESCRIPCION, FROM DATA"

Set RsAgregar = New ADODB.Recordset
RsAgregar.Open CadenaSQL, cnxPLLA, adOpenKeyset, adLockOptimistic
Set Me.DboDocum.RowSource = RsAgregar
Me.DboDocum.ListField = "Pll_docum"
Me.DboDocum.Text = RsAgregar(0) '0 porque es el primer campo de consulta