把DataGrid的数据导出到excel出错

        n = AdoData.RecordCount
        m = AdoData.Fields.Count
        i = 2
        Do While i < n + 2
            j = 1
            Do
                xlSheet.Cells(i, j) = DataGrid1.Columns(j - 1)
                j = j + 1
            Loop While j < m + 2
            i = i + 1
        Loop代码如上
在调试的时候，发现只导出DataGrid第一行的数据，然后就报警：
实时错误'9'：
下标越界调试时看见j=73，n=7，m=72,i=2错在哪里呢？