Добавление пользователей к ролям из компонента сценария VB, пользователи не добавляются

Question

У меня есть файл SSIS dtsx, в котором есть компонент сценария VB. Внутри я пытаюсь добавить пользователей к роли в моей табличной базе данных, но, несмотря на то, что скрипт не завершается из-за каких-либо ошибок, пользователи не отображаются в списке участников роли.

Я попытался пропустить как можно больше ненужного кода, поэтому, пожалуйста, прокомментируйте, если вы считаете, что я пропустил что-то, что вы считаете важным

Dim amoServer As New AMO.Server
Dim amoDatabase As New AMO.Database
Dim amoRole As New AMO.ModelRole
Dim amoRoleMember As New AMO.WindowsModelRoleMember

amoServer.Connect(serverName)
amoDatabase = amoServer.Databases.FindByName(dbName)
amoRole = amoDatabase.Model.Roles.Find(Dts.Variables("SecurityGroupName").Value.ToString)

Dim login As String, action As String
login = "XXX\test001"
action = "Granted"

RM = New AMO.WindowsModelRoleMember()
RM.MemberName = login

Try
    If (action = "Granted") Then
        amoRole.Members.Add(RM)
        amoDatabase.Update()
    End If
Catch 
    .... not important in this case