Combo1如何显示第一条记录！！！

Question

我的老是显示的空的
没有显示第一条记录
我加上下面的语句，
提示无效的属性值！！！ 
Combo1.ListIndex = 1

Answer 1

你需要先添加记录到控件中:
sub form1_load()
Combo1.additem "a"
Combo1.additem "b"
Combo1.additem "c"
Combo1.listindex=1
end sub运行后显示b

Answer 2

    Dim rs As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Set rs = ExecuteSQL("select * from TwSoft", MsgText)
    Combo1.ListIndex = 1
    Do Until mrc1.EOF
    Combo1.AddItem rs.Fields("C_SoftName")
    rs.MoveNext
    Loop