>>479
for i=0 to rs_aaa.fields.count -1
.Fields(i).Value = rs_aaa.Fields(i).Value
next