在利用ADO打开excel表格的时候，首先读取行数和列数（或是记录和字段）：
i = Rst.RecordCount
j = Rst.Fields.Count
发现少了一条记录，即i值比实际的少1，不知道怎么回事？
于是把i 改成i = Rst.RecordCount ＋1

接着往下赋值：
redim z(1 to i,1 to j)
For m = 1 To i
If m = 1 Then
rst.MoveFirst
Else
rst.MoveNext
If rst.EOF Then
rst.MoveLast
End If
End If

For n = 1 To j
z(m, n) = rst.Fields(n - 1).Value
Next n
Next m
db.Close
Set rst = Nothing
Set db = Nothing
发现，还是读不了第一条记录，反而最后一条记录有两条！晕倒！怎么回事？？？