This example uses the UserName property to change a particular user's permissions on an object and to verify that user's ability to append new data to the same object.
Sub UserNameX()
' Ensure that the Microsoft Jet workgroup information
' file is available.
DBEngine.SystemDB = "system.mdw"
Dim dbsNorthwind As Database
Dim docTemp As Document
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set docTemp = _
dbsNorthwind.Containers("Tables").Documents(0)
' Change the permissions of NewUser on the first Document
' object in the Tables container.
With docTemp
.UserName = "NewUser"
.Permissions = dbSecRetrieveData
If (.Permissions And dbSecInsertData) = _
dbSecInsertData Then
Debug.Print .UserName & " can insert data."
Else
Debug.Print .UserName & " can't insert data."
End If
End With
dbsNorthwind.Close
End Sub