Sub BulkFruit As List
Dim lst As List
lst.Initialize
lst.Add(CreateMap("_id": "apple:fuji", "name": "Fuji", "price": 1.05))
lst.Add(CreateMap("_id": "apple:applecrisp", "name": "Apple Crisp", "price": 1.33))
lst.Add(CreateMap("_id": "pear:bosc", "name": "Bosc", "price": 1.95))
lst.Add(CreateMap("_id": "apple:goldendelicious", "name": "Golden Delicious", "price": 1.27))
lst.Add(CreateMap("_id": "pear:bartlett", "name": "Bartlett", "price": 1.02))
Return lst
End Sub