movenext为何这么慢

Question

vb里建立一个记录集以后，用循环语句逐个添加记录,发现movenext方法很慢,不知道有没优化的办法,例如:
 For i =1 to rs.recordcount
       combo1.additem rs.fields(1)
       rs.movenext
  next i
当数据多时,把rs.movenext去掉就快很多,放上去就很慢,请高手支招,谢谢.

Answer 1

dim a as variant
a = rs.GetRows(adGetRowsRest, adBookFirst, rs.Fields(1).Name)
for i=0 to ubound(a,2)
    combo1.additem a(0,i)
next

Answer 2

 For   i   =1   to   rs.recordcount 
     rs.AbsolutePosition = i
     combo1.additem rs.fields(1) 
 next   i 另外，VB老鸟 的方法应该是最快的了。

Answer 3

getrow的方法我之前试过了的，在给数组赋值的时候也很慢
我是这样写的
dim a 
a=rs.getrows
for i=0 to rs.recordcount-1
    combo1.additem a(0,i)
next
不知道这样跟VB老鸟的方法是不是一样的
为什么我这样比较慢