明显是你数据库的问题 为什么可以允许有name=null的数据存在

是的。

对于数据表遍历这样的不需要用到循环值的循环
最好不要用FOR循环
你用
do While not rs.Eof

loop
这样就不会出现你说的问题
另外，最好在循环前做一个判断
可以让程序更好理解
if rs.eof then
msgbox "数据库中没有记录"
exit sub
else
rs.movefirst
endif

Combo1.AddItem rs(0) & ""
这样就可以了,

但怎样才能将找到的表内的第一条记录设为默认显示呢

已经可以了
if combo2.listcount>0 then
combo2.listindex=0
end if