スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
 
あるフォルダーにあるcsvファイルすべてを読み込んで、
Accessのテーブルに書き込みたいです。
csvファイル1行を1レコードとします。
 
通常のcsvファイルはできたのですが、
今回取り込もうとしているcsvファイルが文字化けしたり、
1行1レコードにならずに困っています。
 
原因はcsvファイルが、
 
・UTF-8（BOM付き）
・改行コードが\n
 
でした。
UTF-8（BOM付き）に対応しようとすると改行コードが解決できず、
改行コードに対応しようとするとUTF-8（BOM付き）が解決できずに
行き詰ってしまいました。
 
改行コードが\nのものをCRLFにして別ファイルを作る、
という方法もあったのですが、
ファイル数は増やしたくありません。
 
解決方法を教えていただけないでしょうか？
 
 

引用:
あるフォルダーにあるcsvファイルすべてを読み込んで、
Accessのテーブルに書き込みたいです。

引用:
原因はcsvファイルが、
  
・UTF-8（BOM付き）
・改行コードが\n
  
でした。

お世話になります。
 
コードは次の通りです。
 
With CreateObject("ADODB.Stream")
       .Charset = "UTF-8" 'SJISの場合、"shift_jis"
       .Open
       .LoadFromFile strFILE
         
        Do Until .EOS
            sBuf = .ReadText(-2) '1行づつバッファへ格納
            MsgBox sBuf
            Call Import_rtn
        Loop
         
        .Close
 End With
 
 
これで1行ずつMsgBoxが実行されると思いましたが、
すべての行が表示されてしまいます。
 
フォルダーの中にあるcsvファイルは、どれも同じ仕様です。
あるデーターが、日付単位でcsv出力されたものです。
 
Accessのインポート機能でインポートしたところ、
問題なくインポートできました。
 
なので、てっきり改行コードの指定の仕方が悪いのかなと思ってました。
 
 
 

改行されるところに注目してみました。
 
改行される前は「合計」になります。
改行された後は「オペレータ」になります。
 
しかし、Accessのテーブルのフィールドには、
 
「合計
オペレータ」
 
という文字が入っていました。
 

引用:
改行コードが\n

引用:
With CreateObject("ADODB.Stream")
       .Charset = "UTF-8" 'SJISの場合、"shift_jis"
       .Open
       .LoadFromFile strFILE

With CreateObject("ADODB.Stream")
    .Charset = "UTF-8" 'SJISの場合、"shift_jis"
    '行区切り記号を LF（ラインフィード）とする
    .LineSeparator = 10     'ADODB の列挙定数クラス LineSeparatorsEnum のメンバー adLF と同じ値
    .Open
    .LoadFromFile strFILE

お世話になります。
 
.LineSeparator = 10
を追加することで無事解決しました。
ありがとうございました。