小问题。如何设定ComboBox的选定项？

Question

adRs.Open "select * from objects", adCon
While Not adRs.EOF
   CobType.AddItem adRs.Fields(1).Value
   adRs.MoveNext
Wend假设adRs.Fields(1).Value的值为：
a
b
c
d
…现在要使CobType的选中项为c,但不知道ListIndex的值，请问怎样实现？

Answer 1

Dim index As LongadRs.Open "select * from objects", adCon
While Not adRs.EOF
   CobType.AddItem adRs.Fields(1).Value
    With Combo1
        If .List(.NewIndex) = "c" Then
            index = .NewIndex
        End If
    End With
   adRs.MoveNext
WendCombo1.ListIndex = index

Answer 2

谢谢supergreenbean(超级绿豆 - 要准备发芽了)！
我试了，逐条运行,但是没有使.List(.NewIndex) = "c"成立的记录。也就是index = .NewIndex没有执行。