For Each _ConnectionDatabases (gb.db2)

Dim hConnectionDatabases As _ConnectionDatabases
Dim hDatabase As Database
For Each hDatabase In hConnectionDatabases
  ...
Next