忘记的老问题，不好意思（当是送分了）（在线等）

Question

List1.AddItem "aa"
List1.AddItem "bb"...

Answer 1

可以把一条记录的所有字段存入一个字符串，再用additem“字符串”的方式
如果rs.eof=true则结束

Answer 2

List1.AddItem adodc1.recordset("字段名")

Answer 3

adodc1.Recordset.movefirst
Do While adodc1.Recordset.EOF <> True
    list1.additerm adodc1.Recordset.field(1).Value
    adodc1.Recordset.movenext
Loop

Answer 4

While not adodc1.recordset.eof
 list1.additem recordset!字段名
Wend

Answer 5

do until adodc1.eof
  list1.additem adodc1.recordset!字段
  adodc1.recordset.movenext
loop

Answer 6

哈哈哈
来晚了
with adodc1.recordset
    .movefirst
    do not .eof
       list1.additem !欲加字段名
       .movenext
    loop
end with