Sub Initialize
	Dim session As New NotesSession
	Dim db As New NotesDatabase("SERVER_NAME/ORG", "Pfad/Datenbank.nsf")
	Dim acl As NotesACL
	Dim entry As NotesACLEntry
	Set acl = db.ACL
	Dim person As New NotesACLEntry ( acl, "Vorname Nachname/ORG", ACLLEVEL_MANAGER )
	Call acl.Save
End Sub