关于读取CSV文件的问题

我有一个字段很多的CSV文件（超多500列），要导入到ACCESS中去处理，但是我只需要其中的部分列，但是这部分列在第255列以后，现在用代码是读取不了255列以后的列的，怎么办？
For i = 1 To rsData.RecordCount
                rst.AddNew
                k = 0

                For Each Fn In rst.Fields

                    For Each Fn1 In rsData.Fields

                        If Fn.name = Fn1.name Then

                            rst.Fields(Fn.name) = CStr(rsData.Fields(Fn1.name))
                           
                            k = k + 1

                            Exit For

                        End If

                    Next
                Next

                rst.Update

                rsData.MoveNext
                  
            Next i