لوپ در فیلدها و ذخیره در آرایه

Do While Not rs.EOF 

    For j = 0 to rs.Fields.Count-1

     Set fieldSet(j) = rs.Fields.Field(j).Value

    Next j

rs.MoveNext

Loop