Here's a very simple approach.
RS.MoveFirst
Open "c:\output.csv" For Output As #1
Print #1, RS.GetString(, , ",", vbCrLf)
Close #1
Once you have the recordset you can convert it to a string. If there's a lot of data, you could loop through each record and then have the GetString() method only return 1 row of data and write that out each time.