求助数据库取值？？？？在线等

Question

想把数据库中的两列（1，2）数据赋值给两组数组:
Dim A() As String
Dim B() As String
Set Adodc1.Recordset = rst
m = rst.RecordCount
ReDim A(1 To m) As String
ReDim B(1 To m) As String
For I = 1 To m
  A(I) = rst.Fields(0, I).Value
  B(I) = rst.Fields(1, I).Value
Next I 
错误总出现在 
  A(I) = rst.Fields(0, I).Value
  B(I) = rst.Fields(1, I).Value
错误的参数号或无效的属性赋值？？？？？？ 
  
 

Answer 1

Dim A() As String
Dim B() As String
Set rst = Adodc1.Recordset
m = rst.RecordCount
rst.MoveFirst
ReDim A(1 To m) As String
ReDim B(1 To m) As String
For I = 1 To m
  A(I) = rst.Fields(0).Value
  B(I) = rst.Fields(1).Value
  rst.MoveNext
Next I 

Answer 2

有你这样用Fields对象的吗？这可是一个一维数组。
rst.Fields(nIndex).Value，nIndex是字段索引，从0开始。