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>