Aggiungo il codice che utilizzo per popolare l'oggetto da me creato e l'inserimento nella collection:

Dim utente As New ClsFunzionario

utente.codiceFunzionario = adoRecordset!Codice_funzionario
utente.codiceSetup = adoRecordset!codice_setup
utente.username = adoRecordset!username
utente.attivaOnLine = 1
utente.cognome = adoRecordset!cognome
utente.nome = adoRecordset!nome
utente.tipoUtente = adoRecordset!Tipo_utente
utente.letturaSchedaImmobile = adoRecordset!Scheda_immobile_lettura
utente.scritturaSchedaImmobile = adoRecordset!Scheda_immobile_scrittura
utente.letturaSchedaPersona = adoRecordset!Scheda_persona_lettura
utente.scritturaSchedaPersona = adoRecordset!Scheda_persona_scrittura

Set utentiCollection = New Collection
utentiCollection.Add Item:=utente, Key:="admin"