Private Sub Command1_Click()
Dim Con As Object, Res As Object
Set Con = CreateObject("ADODB.Connection")
Con.open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};defaultdir=c:\mydbs"
'以defaultdir來設定資料夾路徑
〝*.txt; *.csv〞裡有〝;〞字元而造成電腦句子誤判，所以用{ }把驅動程式名稱給包起來
Set Res = Con.Execute("tel.txt")
'使用Execute的方式以檔名為資料表名，載入資料庫
For i = 0 To Res.Fields.Count - 1
Print Res.Fields(i).Name,
Next
Print
Do Until Res.EOF
For i = 0 To Res.Fields.Count - 1
Print Res.Fields(i).Value,
Next
Print
Res.MoveNext
Loop
End Sub
●執行結果。