Set docNABGroup = dbNAB.CreateDocument
docNABGroup.Form = "Group"
docNABGroup.ListName = sGroupName
docNABGroup.GroupType = "0"
docNABGroup.ListDescription = "Dies ist eine Gruppe der Arbeitszeitverwaltung." & Chr(13) & _
"Sie beinhaltet die Abteilungsleiter der Gruppe '" & sDepartmentName & "."
docNABGroup.ListOwner = session.UserName
Call docNABGroup.Save ( True, False )