codice:
While Not rs.EOF
    rs.fields(0).value = rec(3) 'ragsoc
    rs.Update
    rs.MoveNext
Wend

prova..............