You can Persist the ADO recordset to a text file in XML format using the built-in MS_Persistence provider, you will the have the table structure as well as the data. i.e.
rs.Save ""c:\testfile.txt", adPersistXML
Or reference the Microsoft Scripting Object and do it manually. Here is some sample code:
Dim fso As Scripting.FileSystemObject
Dim MyFile
Set fso = new Scripting.FileSystemObject
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine(rs.Fields("Field1") & rs/Fields("Fields2"))
MyFile.Close