… = _ConnectionUsers[…] (gb.db2)

Dim hConnectionUsers As _ConnectionUsers
Dim hDatabaseUser As DatabaseUser
hDatabaseUser = hConnectionUsers [ Name As String ]