次のスクリプトは、ACL の取得元である NotesDatabase オブジェクト (db) のタイトルと Parent プロパティによって返される NotesDatabase オブジェクト (parentDb) のタイトルを表示します。db と parentDb は同じデータベース SOMEDOCs.NSF を表しているため、タイトルも同じになります。
Dim db As New NotesDatabase( "", "somedocs.nsf" )
Dim parentDb As NotesDatabase
Dim acl As NotesACL
Set acl = db.ACL
Set parentDb = acl.Parent
Messagebox( db.Title )
Messagebox( parentDb.Title )