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

---

我以尝试过一下方法
Set cn = CurrentProject.Connection

Set Rs = cn.Execute("Select * from Table_Name", 50, adCmdText)

For i = 0 To Rs.RecordCount
   
    S(i, 1) = Rs(i)
   
Next i

我用以上语句想将一张数据表的数据整体赋值给一个二维数组但是Rs.RecordCount的值总为 -1
无法继续运行
S(i,1)=Rs(10)直接赋值也无法读出数据表中的数据

---

也尝试过如下方法~
  Dim  rstEmployees,  strMessage 
  Dim  intRows,  avarRecords 
  Dim  intRecord,  intField 
  Dim  intRecCount,  intFieldCount 
   
Set rstEmployees = CreateObject("ADOCE.Recordset.3.1") Access2000这句类定义总是不成功
  rstEmployees.Open  "myTable" 
   
  strMessage  =  "Enter  number  of  rows  t