1.可以这样打开txt文件:
dim conn as new adodb.connection
Dim ConnStr As String
    
    ConnStr = "Provider=MSDASQL.1;" & _
              "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
              "DBQ=D:\tmep"
    conn.Open ConnStr
    rs.CursorLocation = adUseClient
    rs.Open "Select * From test.txt", conn, adOpenDynamic, adLockPessimistic