Usa print al posto di write per eliminare gli apici.
Concatena i campi in una unica stringa e salva quest'ultima.
codice:
Dim sRiga As String 
recordset.movefirst
do
sRiga = Trim(recordset.fields("campo1").value) & Trim(recordset.fields("campo2").value) '(e prosegui cosi)
print #1, sRiga 
recordset.movenext
loop until recordset.eof
Ciao,