If RS.RecordCount > 0 Then
i = Rs.RecordCount - 1 '获取记录数
j = Rs.Fields.Count - 1 ‘获取字段数
ReDim A(i, j)
rs.movefirst
For m = 0 To i
For n = 0 To j
A(m, n) = Rs.Fields(n)
Next n
RS.MoveNext
Next m
End If
大体就是这样
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024