如何遍历一个数据表

--------------------编程问答-------------------- 从哪看来的垃圾代码

While Not rs.EOF
  Combo1.AddItem "" & rs.Fields("Name")
  rs.MoveNext
  Wend
  
--------------------编程问答-------------------- 哇,头回见...and连接EOF,BOF..... --------------------编程问答-------------------- 问题我自己解决了 --------------------编程问答-------------------- 看代码，没什么问题啊 --------------------编程问答-------------------- p_Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
  strsql = "SELECT name FROM lx "
  rs.Open strsql, p_Cnn,1,1
  do While Not rs.eof
    Combo1.AddItem rs.Fields("Name")
    rs.MoveNext
  loop
  rs.Close --------------------编程问答--------------------

补充：VB ,  基础类