'下面是个例子,假设你的Test.txt文件在C盘根目录下
'注意,工程要引用ADO哟

程序代码:
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=C:\;", "", "" '注意里面每一个空格哦,后面两个空值的参数是userid,password
Rs.Open "select * from [Test.txt]", Conn, adOpenStatic, adLockReadOnly, adCmdText
MsgBox Rs.RecordCount
Rs.Close
Conn.Close
End Sub

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================