Quote Originally Posted by layne



‘oReader HAVE 10 ROWS WITH 7 COLUMNS here
While oReader.Read()
dsCode = "" & oReader("Code")
dsDescr = "" & oReader("Descrip")
dsType = "" & oReader("Type")
dsHeadText = "" & oReader("TextHead")
dsHeadHTML = "" & oReader("HTMLHead")
dsFootText = "" & oReader("TextFoot")
dsFootHTML = "" & oReader("HTMLfoot")


‘THIS IS ADDING TO COLLECTION BASE, BUT WHY ONLY 3 FIELDS???

myRecords = oWarning.Add(dsCode, dsDescr, dsType)

With myRecords.NewHdr
.Txt = dsHeadText
.HtmTxt = dsHeadHTML
End With
With myRecords.NewFtr
.Txt = dsFootText
.HtmTxt = dsFootHTML
End With

End While
End Class[/CODE]
the program adds to collection, but the remaining 4 fields are being overwritten by the "with - end with" blocks, so how come the object "myRecords" seem to have the rows???

thanks