私は学校向けのフィルム検索のコーディングを行っていましたが、この問題に遭遇しましたが、解決方法がわかりません。
While Not FilmSearcher.EndOfData 'loop until end of file
currentRow = FilmSearcher.ReadFields() 'read in the fields of each line
For j = 0 To 3
Films(i, j) = currentRow(j) 'put the fields into film array
Next
i = i + 1
End While
currentRow = FilmSearcher.ReadFields() は動作していない部分です