由于设计考虑到选项的选与不选，下面代码如何修改，能让combox下拉菜单的第一行为空选项？

 sql = “连接数据库语句”
   rst.Open sql, Cnn, 1, 3
    Do While Not rst.EOF
combo1.AddItem rst("单位名称")
rst.MoveNext
    Loop
 rst.Close
If combo1.ListCount Then combo1.ListIndex = -1
（补充，Load加载为初始空白的方式就不用考虑了）
请老司机们帮一下，谢谢!!

要么你数据库里做个空记录，要么 在
    Do While Not rst.EOF
这句之前加载一个空的。

还有就是允许用户输入，而不是限制只能选择。这种情况，置text 属性为空。

为了避免输入错误影响统计和查询，只允许用选择方式，可以指教一下在 Do While Not rst.EOF之前加载空项的方式吗

首先清除Combo1的所有选项：
Combo1.Clear
在连接数据库之前，先加载一个空选项：
Combo1.AddItem ""
再连接数据库加载其他项目：
 sql = “连接数据库语句”
   rst.Open sql, Cnn, 1, 3
    Do While Not rst.EOF
        Combo1.AddItem rst("单位名称")
    rst.MoveNext
    Loop
    rst.Close
就可以了。

[此贴子已经被作者于2017-7-24 08:53编辑过]