从数据库提取5条符合要求的数据，并将他们分别赋值给5个变量

Question

1 读取数据
2 不需要循环，直接复制第一个结果给img1
3 下一个
4 读取数据给img2
5 下一个
6 ......如果你用img[] 数组格式的，则可以考虑放在循环里面。

Answer 1

rs.open "select img from myTable",conn,1,1
  img1 = rs("img")
  rs.movenext
  img2 = rs("img")
  rs.movenext
  img3 = rs("img")
  rs.movenext
  img4 = rs("img")
  rs.movenext
  img5 = rs("img")
rs.close

Answer 2

sql=select top 5 * from [表] where ……
rs.open sql,conn,1,1for i=1 to 5
 if rs.eof then exit for
  img&i=rs(i)
 rs.movenext
next

Answer 3

sql=select top 5 * from [表] where …… 
rs.open sql,conn,1,1 for i=1 to 5 
if rs.eof then exit for 
  img&i=rs("字段") 
rs.movenext 
next

Answer 4

Do While Not rs.Eof
   arr(i,0)=rs(0)
   i=i+1
   rs.MoveNext
Loop