Access 数据表数据赋值给二维数组赋有关问题

Access 数据表数据赋值给二维数组赋问题
有如下工作表

岗位名称,生产线
  AD JBC
  AD JBC
  AR BLD
  AP BLD

想将该表的所有数据赋值给一个二维数组 效果如下求语句
SA (500,2)

SA(1,1)=AD

SA(1,2)=JBC

SA(2,1)=AD

SA(2,2)=JBC





[解决办法]

VB code

Set cn = CurrentProject.ConnectionSet Rs = cn.Execute("Select * From Table_Name", 50, adCmdText)do while not rs.eof    S(i, 1) = Rs(1)    rs.movenextlooprs.close