Wonderful Brian, you are a life saver!

Now what about creating the role(s) if they dont already exist?

I tried:

If Roles.RoleExists(RoleName1) = False Then
                Roles.CreateRole(RoleName1)
            End If

I get the error:

A critical error has occurred.
Unable to connect to SQL Server database.

I dont beleve RoleExists is a DNN Method so how can I make this work, and how do I set the Roles.RoleInfo, Info (ServiceFee, BillingPeriod, RoleGroup, etc)

Protected Sub CreateButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateButton.Click
            Dim objRoles As New RoleController
            Dim UserName1 As String = User.Text
            Dim RoleName As String = (NS.Text & "2")
            Dim userEmail As String = Membership.GetUser(UserName1).Email
            Dim userId As Integer = UserController.GetUserByName(0, UserName1).UserID
            Dim roleId As String = objRoles.GetRoleByName(PortalSettings.PortalId, RoleName).RoleID
            Dim objRoleInfo As New RoleInfo
            Dim objRoleController As DotNetNuke.Security.Roles.RoleController
            objRoleController = New DotNetNuke.Security.Roles.RoleController
            objRoleInfo.AutoAssignment = False
            objRoleInfo.BillingFrequency = "Month"
            objRoleInfo.BillingPeriod = 6
            objRoleInfo.Description = NS.Text & "2"
            objRoleInfo.IsPublic = False
            objRoleInfo.PortalID = 0
            objRoleInfo.RoleID = roleId
            objRoleInfo.RoleName = RoleName
            objRoleInfo.ServiceFee = "0.00"

            objRoleController.AddRole(objRoleInfo)
            objRoleController.AddUserRole(PortalSettings.PortalId, userId, roleId, Null.NullDate, Null.NullDate)

        End Sub

Causes the error:

A critical error has occurred.
Object reference not set to an instance of an object.

What does this mean?