ADODB.Stream ReadText无法正常工作

Question

我正在尝试使用ADODB.Stream逐行读取csv文件。当我执行.ReadText（-2）方法时，它在第一行中可以正常使用，但会从所有接下来的行中截断开头的2个字符，并且不会读取最后一行。

下面是我尝试过的代码。

Set oTextStream = New ADODB.Stream

With oTextStream
    .Charset = "utf-8"
    .LineSeparator = adLF
    .Open
    .LoadFromFile (sFullPath)
End With

Do Until oTextStream.EOS
    Debug.Print oTextStream.ReadText(-2)
Loop

代替打印： “精算机构”；“ R12345”

它打印： 精算机构”；“ R12345”