ABRIR UM ARQ TXT SEM PASSAR LINHA POR LINHA

Dim FSO as FileSystemObject, TStream as TextStream
Set FSO = New FileSystemObject
Set TStream = FSO.OpenTextFile("C:\Arquivo.txt", ForReading)
Texto = TStream.ReadAll
Set TStream = Nothing
Set FSO = Nothing

Set TStream = FSO.OpenTextFile(Arquivo, ForWriting)
TStream.Write Texto

Citação:

Dim conexao As Object
dim rs as object

Set conexao = CreateObject("adodb.connection")

conexao.open "Driver={Microsoft Text Driver (*.txt; *.csv)};dbq=c:\;" & _
"Extensions=asc,csv,tab,txt;" & _
"Persist Security Info=False"

Set rs = conexao.execute("select * from banco.txt")

Do While Not rs.EOF
MsgBox rs.fields(0) ' Coluna 1
MsgBox rs.fields(1) 'Coluna 2
rs.movenext
Loop