vb中记录集的问题

我的access数据库的表格中，从第3列开始的列是“点1编号”……“点15编号”，这些一共有十五列，我想把某行的这些数据赋值给一个一维数组ptnum（14），在用select * from 表 where * = 这个语句找到我所要的行之后，我想去这行的以上列的值，定义了一个i为integer，想用for语句来赋值，麻烦各位帮忙看一下标注的那里应该怎么写： 
select * from 表 where * = 具体省略了 就是找到行了
 For i = 0 To 14
  ptnum(i) = rs(“点CSng(pti+1)编号”) 就是这里！！
 Next
rs之后的括号里的我想让他变成点1编号，点2编号……这样我就可以取某行该列的数值了，只是怎么让pti+1计算出来，就变成ptnum（0）=rs（“点1编号”），就能赋值了？好像括号里的就直接搜索了。谢谢！

select 点1编号,点2编号,点3编号,...,点15编号 from 表 where * = 
 For i = 0 To 14
  ptnum(i) = rs(i)
Next