For Each _ConnectionUsers (gb.db2)

Dim hConnectionUsers As _ConnectionUsers
Dim hDatabaseUser As DatabaseUser
For Each hDatabaseUser In hConnectionUsers
  ...
Next