读取一个文件夹内的所有CSV文件的例子，程序中有错误，希望高手指点。

突然被交待的工作，不知道该如何处理。对于Access了解不多，

在网上找到了附件中的例子，但是运行时出现错误，不知为何。请高手指点迷津。十分着急。

[ 本帖最后由 tonyken777 于 2010-12-17 12:58 编辑 ]

附件都没有，别人怎么帮你呢？
、

module名称为csvFile中有以下的程序，就是运行到这里出了问题，
我看不懂  rs1(i + 1) = rs(i)  是想要表示什么意思，请高手指点。

    Do Until rs.EOF
        rs1.AddNew
        For i = 0 To 7
            rs1(i + 1) = rs(i)
        Next
        rs.MoveNext
    Loop