Try persiting to XML... which can easily be changed to any text format file:
Dim objCon As ADODB.Connection
Dim objRec As ADODB.Recordset
Set objCon = New ADODB.Connection
Set objRec = New ADODB.Recordset
objCon.Open YOURCONNECTIONSTRING
objRec.Open "SELECT * FROM yourtable", objCon
objRec.Save "c:\yourxml.xml", adPersistXML
objRec.Close
Set objRec = Nothing
objCon.Close
Set objCon = Nothing