1. Itera tu recordset incrementando cada uno de los campos concatenados a "," 2. Por cada registro quita el ultimo caracter (left, len)
3. Concatena un vbCrLf.
4. Cuando tengas tu variable creada, por medio del FSO, crea un archivo de texto CerateTextFile, y escribe el contenido de tu variable en el.
http://www.aspfacil.com/articulos/fso.asp
Saludos