Hi Adrian,

You can only add objects to collections, not user defined types :-(

Create a small class object and add that to the collection and you should be
fine.

HTH

Peter Beach

"Adrian" wrote in message
...
Hi,

I am adding a user-defined data type to a collection as illustrated
below
but failed ... Can somone please help? Thanks..


'All codes here are written in a module "ErrSeeder"
'--------------------------------------
(General) (Declarations)
Type Seed
name as string
no as integer
End Type
'--------------------------------------
Sub test()

Dim c As New Collection
Dim s As Seed
s.Name = "Watermelon Seed"
s.no = 1

c..Add s <- Compliation fail at this point with the following error
:
Only user-defined types defined in public object modules can be coerced to
or from a variant or passed to late-bound functions

End Sub
'--------------------------------------
May I know where can I define my user data type so that the code above
will
work ? What does it mean by public object modules ?

Thanks.

Regards,
Adrian