CreateACL

Sub CreateACL(user as string,dbpath as string,acc as integer)
On Error Goto ErrorHasOccurred
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim entry2 As NotesACLEntry
Set db=session.getDatabase("ServerName",dbpath)
Set acl = db.ACL
Set entry=acl.GetEntry(user)
Set entry2 = acl.CreateACLEntry (user, acc )
Call acl.Save
Exit Sub
ErrorHasOccurred:
msgbox Cstr(Now()) & " ~ Error in CreateACL Agent ~ " & Cstr(Error())+" ~ "+ Cstr(Erl())
Resume Next

End Sub