LISTING 3: Syntax for Adding the Cabxli User to the Sql_mag_role User-Defined Role

Sub add_cabxli_to_sql_mag_role()
Dim srv1 As SQLDMO.SQLServer
Dim dbr1 As SQLDMO.DatabaseRole

'Instantiate SQLServer object and
'point it at the cablat server.
Set srv1 = New SQLDMO.SQLServer
srv1.Connect "cablat", "sa", ""

'Add the cabxli user to the sql_mag_role role.
srv1.Databases("Northwind"). _
  DatabaseRoles("sql_mag_role"). _
AddMember "cabxli"

End Sub