DIM hConnectionDatabase AS .ConnectionDatabase
FOR EACH hConnectionDatabase
  ...
NEXT

Enumerates all databases by changing the current database representing by the object.