Granting Modify Design Permission to a Group for a Table

This example sets permissions for a group. It does this by setting the UserName property of the document to the name of a group. Because users and groups share the same namespace and as such cannot have identical names, Microsoft Jet knows that you’re referring to a group and not a user.

Sub GrantModifyDesign(strDbPath As String, strGroup As String, _
		strDocument As String)
	Dim dbs As Database, doc As Document

	Set dbs = OpenDatabase(strDbPath)
	Set doc = dbs.Containers("Tables").Documents(strDocument)
	With doc
		' Specify group account.
		.UserName = strGroup
		' Add modify design permissions.
		.Permissions = .Permissions Or dbSecWriteDef
	End With
End Sub