Access(アクセス)VBAでCSV(UTF-8)をインポート(登録)する方法

Access(アクセス)VBAで、FileSystemObjectを使ったファイル編集を行うと、
UTF-16かShift_JISのファイルしか作成されない。
UTF-8CSVの読み込み、書き込みをしたい場合は、「CreateObject("ADODB.Recordset")」を使用する。
【読み込み】

    Dim buf As Variant
    Dim fADODB As Object
    Set fADODB = CreateObject("ADODB.Stream")
    ' 【Read】
    With fADODB
        .Charset = "UTF-8"
        .Open
        .LoadFromFile "c:\Text.csv"
        buf = .ReadText(-1)
        .Close
    End With

Windows 10 Home 日本語版（Fall Creators Update 適用済） マイクロソフト ※パッケージ（USBメディア）版