populating dynamic reocrdset

[manoj singhal]

here i want to select only those fields which are having only zero or null values for all the records

rs is recordset
recordset2 is dynamic recordsets.

for i=o to rs.recordcount
 For k = 0 To rs.Fields.Count-1
   if rs.fields(k).value=0 or rs.fields(k).value =null then
   recordset2.Fields(k).Value = rs.Fields(k).Value
   endif
 Next
rs.movenext
 recordset2.movenext
recordset2.update

this is successful but i want something like this which can give me fields having only zero or null values regarding every record