透过ADO.Recrodset取得文字数据库csv的方法

csv是一种文字型态的数据库
以往读取这类的东西，都是透过档案存取对象FileSystemObject
这样会浪费了文字数据库的特性
其实可以透过RecordSet来直接读取csv檔
不过要特别注意读取后，两个豆号间如果没有数据
那么那个字段会是【null】
以下是范例程序

--------------------------------------------------------------------------------

Dim conn as Object
Dim rs as Object
Dim FilePath as String
Dim SQLTXT1 as String

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

FilePath = "D:\TEMP"

conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & FilePath & ";Extensions=asc,csv,tab,txt;Persist Security Info=False"

With rs
    .CursorType=2
    .LockType=3
    .CursorLocation=3
    .ActiveConnection=conn
End With

SQLTXT1 = "SELECT * FROM ABC.csv"
RS.Open SQLTXT1