Io ho provato il codice che ti ho postato e funziona correttamente.

codice:
Dim sRiga As String
Dim Campo As Field
sRiga = ""

For Each Campo In rs.Fields
    sRiga = sRiga & Trim(Campo.Value) '(e prosegui cosi)
Next Campo
Hai fatto la dichiarazione di sRiga ?

naturalmente ho cambiato i campi come prima. che prima funzionava
Controlla, deve funzionare.

Ciao,