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

Opening a Text File with ADO

   <source lang="vb">

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

</source>