如何利用combobox进行多字段绑定

假定是不连续的，复杂一点：dim cnn as new adodb.connection
dim rs as new adodb.recordset'填充combo列表
cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & yourDBPath & _
         ";Persist Security Info=False"
set rs = cnn.execute("select * form B order by id")
combo1.clear
do until rs.eof
combo1.additem rs!score
combo1.itemdata(combo1.newindex) = rs!id
rs.movenext
loop'当窗体中选中一个id，需要显示其分数
dim i as long
if combo1.listcount then
for i = 0 to combo1.listcount-1
if combo1.itemdata(i) = currentID then
combo1.listindex = i
exit for
end if
next i
end if'当从combo1中选择了一个score，需要提取相应的id时：
private sub combo1_click()
if combo1.listcount then 
currentID = combo1.itemdata(combo1.listindex)
end if
end sub如果需要绑定修改score，将combo1的datasource设置为B，datafield设置为score。注意：itemdata是long类型，ID不可太长。