'Create a group
Public Sub CreateUserGroup(strGroupName As String, _
        strPID As String)
    Dim wrk As DAO.Workspace
    Dim grp As DAO.Group

    Set wrk = DBEngine(0)
    On Error GoTo CreateUserGroupErr

    'Create the new group
    Set grp = wrk.CreateGroup(strGroupName, strPID)
    ws.Groups.Append grp

CreateUserGroupErr:
    Set grp = Nothing
    Set wrk = Nothing
End Sub