从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