Thanks Viv, that fixed the problem.

John

>Hi,
>
>

>loRecordDetails = CREATEOBJECT("Empty")
>ADDPROPERTY(loRecordDetails,"Name","")
>
>SELECT Customer
>SCAN FOR lSelect
>     loRecordDetails.Name = Customer.Name
>
>     loSelectedCustomerCollection.Add(loRecordDetails)
>ENDSCAN
>

>
>Not a factor in being unable to release the collection but I don't think you're achieving what you want here - you are just adding multiple references to the same object into the collection. Try:
>
>

>SELECT Customer
>SCAN FOR lSelect
>  loRecordDetails = CREATEOBJECT("Empty")
>  ADDPROPERTY(loRecordDetails,"Name","")
>  loRecordDetails.Name = Customer.Name
>  loSelectedCustomerCollection.Add(loRecordDetails)
>ENDSCAN
>

>
>HTH,
>Viv