TransferText включает LineFeed, и я уверен, что большинство методов получения текста из Access будут включать перевод строки, если вы не сделаете что-нибудь, чтобы остановить это. Это не так уж сложно проверить.
Dim fs As New FileSystemObject
s = "c:\docs\test.txt"
DoCmd.TransferText acExportDelim, , "query6", s
Set f = fs.OpenTextFile(s)
a = f.ReadAll
''Split at linefeed: Chr(10)
aa = Split(a, Chr(10))
''Test 1
Debug.Print UBound(aa)
''Test 2
For Each itm In aa
Debug.Print itm
Next