Objects and invalid use of property

[Bob Phillips]

Bin the Set Crews property and add a function Add to cService

Public Function Add(ByRef crew As cCrew)
    oCrews.Add crew, crew.Code
End Function

Then add the crew with

        Service.Add crew