说说思路:这个显然要用ADO1、连接数据库,得到连接对象conn2、用下面的select语句打开表,将数据读入RecordSetset rs=conn.execute("select * from 表名")3、用循环将数据读入二维数组arrrow=0while not rs.eofarr[row,0]=rs["id"]arr[row,1]=rs["year"]arr[row,2]=rs["mon"]arr[row,3]=rs["1"]arr[row,4]=rs["2"].........row=row+1wend