Combo Box??!!

Dim Combo As XtremeCommandBars.CommandBarComboBox
Set Combo = .Add(xtpControlComboBox, ID_GOES_HERE, "")

' Adding items manually, i.e. a static list of data
With Combo
    .AddItem = "Row 1"
    .AddItem = "Row 2"
End With

' Adding items using a For Loop
For i = 1 To 10
    Combo.AddItem "Item " & i
Next

Dim rs As New ADODB.Recordset
Set rs = cnConn.Execute("SQL Query goes here...")

' Adding items using a Recordset
Do While Not rs.EOF
    Combo.AddItem rs("Value")
    rs.MoveNext
Loop