… = _ConnectionDatabases[…] (gb.db2)

Dim hConnectionDatabases As _ConnectionDatabases
Dim hDatabase As Database
hDatabase = hConnectionDatabases [ Name As String ]