Dim mySpace As Workspace Dim grpRegistrars As Group Dim strGroupPID As String
Set mySpace = DBEngine(0)
strGroupPID = "5678"
Set grpRegistrars = mySpace.CreateGroup("Registrars")
grpRegistrars.PID = strGroupPID
mySpace.Groups.Append grpRegistrars End Sub