把DataGrid的数据导出到excel失误

把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

错在哪里呢？
[解决办法]
http://download.csdn.net/detail/veron_04/2341786