cargar combobox

[marote]

Hola Avellaneda!
Estuve viendo el objeto que me nombraste. Este el codigo que he hecho:

Function carga_combo_moneda()
Set tabla_moneda = Nothing
Set tabla_moneda = New ADODB.Recordset
tabla_moneda.Open "SELECT * FROM Moneda ORDER BY id", conexionbase, adOpenDynamic, adLockOptimistic

With tabla_moneda

.MoveFirst

Do Until .EOF
If .RecordCount = 0 Then
MsgBox "No existen registros", vbExclamation, "Mensaje"
Exit Function
Else

CmbBox.AddItem (.Fields("simbolo"))

.MoveNext
End If
Loop

End With
End Function

Como veras cuando hago el AddItem deberia indicarle en que columna quiero hacerlo para poder insertar en la misma fila el otro valor. Pero no puedo darme cuenta como hacerlo