Here's but one approach:

'--Begin Sample Code
  Dim oCn As New ADODB.Connection
  Dim oRs As New ADODB.Recordset

  oCn.Open "provider=sqloledb;data source=(local);user id=me;initial
catalog=northwind;"

  oRs.Open "SELECT * FROM CATEGORIES", oCn

  Open "c:\categories.txt" For Output As #1   ' Open file for input.

  Do Until oRs.EOF
    Write #1, oRs("CategoryID").Value, oRs("CategoryName").Value  '<more
can be added, separated by commas
    oRs.MoveNext
  Loop

  oRs.Close
  oCn.Close

  Set oRs = Nothing
  Set oCn = Nothing
'--End Sample Code

Hope this helps!

Steven Bras, MCSD
Microsoft Developer Support/Visual Basic WebData
This posting is provided AS IS with no warranties, and confers no rights.
You assume all risk for your use. ? 2001 Microsoft Corporation. All rights
reserved.

You can use the getString method of the ADO recordset.

Private Sub example(sSQL As String, sConn As String, sFile As String)
Dim oRS As ADODB.Recordset
Dim oFSO As Scripting.FileSystemObject
Dim oTSoutput As Scripting.TextStream
Dim sTemp As String

    Set oRS = New ADODB.Recordset
    oRS.Open sSQL, sConn, adOpenForwardOnly, adLockReadOnly
    sTemp = oRS.GetString(adClipString, -1, ",", vbCrLf, "")
    oRS.Close
    Set oRS = Nothing

    Set oFSO = New Scripting.FileSystemObject
    Set oTSoutput = oFSO.OpenTextFile(sFile, ForWriting, True,
TristateFalse)
    oTSoutput.Write sTemp
    oTSoutput.Close
    Set oTSoutput = Nothing
    Set oFSO = Nothing
End Sub