Depois de muito RnD, isso está funcionando.
Do Until Rec_set.EOF
For i = 0 To Rec_set.Fields.Count - 1
strString = strString & Rec_set(i) & "," & vbNewLine
Next
Rec_set.MoveNext
Loop
strString = Left(strString, Len(strString) - 3)
strFile.WriteLine (strString)
strString = ""
Mas por favor me avise, se isso criar algum problema, embora esteja dando o resultado desejado!