例如：rst.fields("收入")=K1  '在字段名为“收入”的第一行的记录保存为值K1
      rst.fields("收入")=K2  '在字段名为“收入”的第二行的记录保存为值K2
      ……
      依此类推！应该怎么改，要在“收入”后面加行代码吗？
求大神帮忙！急！

先设定一个数组如 K(100)
Rst.open "Select * from Table",........
Rst.movefirst
Do while not Rst.EOF
    Rst.fields("收入") = K(Rst.AbsolutePosition)
    Rst.update
    Rst.movenext
Loop