使用Database.OpenRecordset时，读取不了，unicode文本文件

Question

使用Database.OpenRecordset时，读取不了，unicode文本文件
例如：
  dim dbSource as Database
   Set dbSource = OpenDatabase(文件路径, False, False, "Text")
  Recordset ＝　dbSource .OpenRecordset（文本文件）
 
 1.读取到了。第一行的第1列数据，第二列数据读取不到。 2.　执行Recordset.movenext
  读取不到下一条数据。各位大大们，
大家见过这个问题吗？

Answer 1

我是直接使用
dbSource .OpenRecordset（文本文件）怎么转换呀！
在哪里转换呀！
还请明确，非常感谢！！！！

Answer 2

不知道你用的什么数据库驱动，试试是否支持 schema.ini在 TEXT 文件同一个目录下，创建一个 schema.ini：
（其中 Data.txt 必须是你真实的 TEXT 文件名，具体参考 http://www.connectionstrings.com/?carrier=textfile）[Data.txt]
Format=CSVDelimited
CharacterSet=Unicode
ColNameHeader=True
MaxScanRows=0

Answer 3

Dim dbSource As Database, mrecordset As Recordset
Set dbSource = OpenDatabase("c:\", False, False, "Text")
Set mrecordset = dbSource.OpenRecordset("user.txt")
Dim x As Field
mrecordset.MoveFirst
Do While Not mrecordset.EOF
For Each x In mrecordset.Fields
        Debug.Print x.Name, x.Value
Next
mrecordset.MoveNext
Loop
文件:
姓名,年龄,ID
"lynn","123",2
12,wer,as
你是大海盗,12,24
输出:
姓名:lynn  年龄:123    ID: 2         
姓名:12   年龄:wer     ID:Null        
姓名:你是大海盗     年龄:12      ID: 24 

Answer 4

我参照这个方法，解决了。
根据不同的语言，生成不同的schema.ini就可以了。
例如：unicode，oem等等
非常感谢