I have retrieved some records from an external database and are stored in a record set, I am then iterating through each record to add it to my collection. I was wondering if I could add all the records in my result set to the collection in one go, or at least without storing each field seperately.

My code currently looks like this:
Set NewRecords = New Collection
Do Until rsRecords.EOF
Set CurrentRecord = New cHistRecords
With CurrentRecord
.OnDate = rsRecords.Fields("ondate")
.Camp_No = rsRecords.Fields("camp_no")
.Mast_sare_no = rsRecords.Fields("mast_sare_no")

etc.

Thanks in advance