'This example creates a new workgroup file in the specified directory with the specified user information. If a workgroup file for this user already exists in the specified directory, Microsoft Access replaces it.

Application.CreateNewWorkgroupFile _
    Path:="C:\Documents and Settings\Wendy Vasse" _
    & "\Application Data\Microsoft\Access", _
    Name:="Wendy Vasse", _
    Company:="Microsoft", _
    Replace:=True

'The following example sets the default workgroup file to the file system.mdw in the directory C:\Documents and Settings\Wendy Vasse\Application Data\Microsoft\Access.

Application.SetDefaultWorkgroupFile _
    Path:="C:\Documents and Settings\Wendy Vasse\" _
    & "Application Data\Microsoft\Access\system.mdw"
		

Private Sub UserDefinition()
Dim wrkDefault As Workspace
Set wrkDefault = DBEngine.Workspaces( 0 )
Dim u As Variant
Set u = wrkDefault.CreateUser("Qwe")
u.PID = "AAA123123"
u.Password = "qwe"
wrkDefault.Users.Append u
Set usrTemp = wrkDefault.Groups("Admins").CreateUser("Qwe")
wrkDefault.Groups("Admins").Users.Append usrTemp
Set usrTemp = wrkDefault.Groups("Users").CreateUser("Qwe")
wrkDefault.Groups("Users").Users.Append usrTemp
End Sub

    Set cbr = cbrMain.Controls.Add( 10 , , , , True)
    cbr.Caption = "Дополнительно"
    Set c = cbr.Controls.Add(,  1816 , , , True) '1816 - id кнопки "Пользователи и группы"
    Set c = cbr.Controls.Add(,  572 , , , True) '572 - id кнопки "Разрешения"

    Dim MyControl As Object
    Set MyControl = CommandBars("Menu Bar").Controls( 14 ) ' 14-й контрол - меню "Сервис"
    MyControl.Copy Bar:=cbrMain, Before:= 4  'cbrMain - собственное меню

Set c = cbr.Controls.Add(,  10003 , , , True) '10003 кнопки "Резервная копия БД"