撈出資料後跑一個雙層迴圈....
varFile = FreeFile
Open <your text file> For Output As #varFile
　　
Do While Not rs.Eof
　　strData = ""
　　For i = 0 to rs.Fields.Count - 1
　　　　strData = strData & Trim(rs(i).Value) & ","
　　Next i
　　Print #varFile, strData
Loop

Close #varFile