Sub Open_TextFile()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Set conn = New ADODB.Connection
Debug.Print conn.ConnectionString
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & CurrentProject.Path & "\"
Set rst = New ADODB.Recordset
rst.Open "select * from [Employees.txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
Do Until rst.EOF
For Each fld In rst.Fields
Debug.Print fld.Name & "=" & fld.Value
Next fld
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub