下标越界

Question

try:   For i = 1 To mrc.Fields.Count - 1 

Answer 1

For i = 0 To mrc.Fields.Count-1
                Select Case mrc.Fields(i).Type
                    Case adDBDate
                        .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i) & "", "yyyy-mm-dd")
                    Case Else
                        .TextMatrix(.Rows - 1, i) = mrc.Fields(i) & ""
                End Select
            Next i
列是从0开始还是从1开始，你的0列空了吗？