问一个很菜的问题，如何用二维数组调用表格中的数据

cwbfx

关于二维数组用什么语句将字段个数计算出来？


怎样将表中数据赋给一个二维数组？


现在急啊！！！！！请高手帮帮忙啊！！！！


下面是我的程序，请高手帮帮忙修改修改,我的表格是




















       年份



种类






1990






1991









鲤鱼






1200吨






1300吨









鲫鱼






1500吨






1600吨


Option Compare Database



Option Base 1
Dim myarray() As String



Sub try()


''使用ado打开和本地 "类别"表 的连接


Dim rst As New ADODB.Recordset


rst.Open "鱼产量", CurrentProject.Connection  '打开表


'-------------------------------------------------------------------------
Dim q As Integer
Dim i As Integer '使用i在数组中循环
Dim j As Integer


Const s = 2