Opening a Text File with ADO : Text ADO « Access « VBA / Excel / Access / Word

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
   Set rst = Nothing
   Set conn = Nothing
End Sub


Related examples in the same category