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.Connection
Set Rs = cn.Execute("Select * From Table_Name", 50, adCmdText)
do while not rs.eof
    S(i, 1) = Rs(1)
    rs.movenext
loop
rs.close