VB中的Combo1问题

Question

VB 6.0 中 Combo1 的 Style 设置成 2-Dropdown List在FORM_Load 加载  Combo1.text=rs.fields("字段")&"'  的时候出错请问各位大哥，我想把 Combo1.text=rs.fields("字段") &""用上去 又不想 改变 它的只读属性，该怎么弄？

Answer 1

Combo1.Locked = True
Combo1.AddItem rs.fields("字段") & ""
Combo1.ListIndex = 0

Answer 2

for i= 0 to Combo1.Listcount-1
    if rs.fields("字段") &"" = Combo1.list(i) then
         combo1.listindex=i
         exit for
    end if
next i