在线等待，帮帮我吧

Question

数据库中有一组数据，假设X：1，2，3，4，5，6，7，8，9这样9个数据，我要实现Z=Y-X，Y已知。
我的想法是用movenext ，但是具体语句怎么写也不对，望指教。若我没能说明白我会补充说明，谢谢  
我需要的是1：把数据从数据库提出来，
2：进行计算。

Answer 1

每个数据放在一个字段里，每一条记录有一个标识；
 如：
   dim sqlstring = "select * from tablename where id = '" & x & "';"
   dim con as new adodb.connection
   dim vrs as new adodb.recordset
   con.open "dsn=mydata"
   vrs.open sqlstring,con
   if not vrs.eof then
       do while not vrs.eof
            z = y - vrs.field("1")
            z = z - vrs.field(2")
             .................
             movenext
       loop
    end if

Answer 2

dim z as double
dim Y as double
SqlStr = "Select X from TableName"
rs.open SqlStr ,连接字符串
if rs.eof and rs.bof then
   '没有记录
else
   do while not rs.eof
        z=y-rs.field("X")
        debug.pring z
        rs.movenext
   loop
end if

Answer 3

    select @y - x as z from tablename

Answer 4

1、直接用数据库函数
2、arr1(iR,iC)=rs.getrows（好象是这样）把recordset里的记录放到数组arr1里，再计算。