'Delete a group
Public Sub DeleteGroup(strGroup As String)
    On Error Resume Next
    DBEngine(0).Groups.Delete strGroup
End Sub