VBA/Excel/Access/Word/Access/Text ADO

Opening a Text File with ADO

 
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