[RESOLVED] Elegant cbo Population

So if we're agreed that data-bound controls are evil (and I do believe they are now), what is the most elegant/fastest/easiest way to populate a combobox w/ a list of items and their associated IDs?

To use a simple example,

"SELECT tblProject.ProjectName, tblProjectID FROM tblProject"

gives me the two things I need. ProjectName gives me the items I want to populate the cbo with so my users have something readable, and ProjectID gives me the key value to do my thing behind the scenes.

Populating the combox w/ ProjectName is obviously easy as I just loop through the recordset.

The crux of the matter is how do I keep track of the associated ID when they click on an item in the combobox?

Disconnected recordset? Array?

If this influences the answer at all, we're talking about ~100 records or so. And yes, they all need to be available to the user.

rs is used as a recordset object. I'm assuming it is populated

VB Code:

rs.movefirst
do until rs.eof
    combo1.additem rs("ProjectName")
    combo1.itemdata(combo1.newindex) = rs("ProjectID")
    rs.movenext
loop

Then, when user clicks on the combobox

VB Code:

Private Sub Combo1_Click()
    MsgBox Combo1.List(Combo1.ListIndex)
    MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub

*Money*

Thanks. I don't know whether to be relieved or annoyed that the answer was that easy.