由于设计考虑到选项的选与不选，下面代码如何修改，能让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之前加载空项的方式吗