For Each _ConnectionTables (gb.db2)

Dim hConnectionTables As _ConnectionTables
Dim hTable As Table
For Each hTable In hConnectionTables
  ...
Next