Do While Not rs.EOF
Combo1.AddItem rs("列名")
rs.MoveNext
Loop
这部分语句在Private Sub Form_Load()中　全编译执行的时候可以　但生成.EXE后运行就没响应了
还有没有别的办法在combo中添加数据，要求窗体装载就添加进去！
谢谢各位了！