如下代碼將對 Orders 表的完全訪問權(quán)限授予管理員用戶。
Sub GrantPermissions()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
' 使用 Jet 4.0 提供者打開與 northwind 數(shù)據(jù)庫的連接
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "data source=" & _
"c:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;" & _
"jet oledb:system database=mysystem.mdb"
Set cat.ActiveConnection = cnn
' 將對 orders 對象的全部權(quán)利授予管理員用戶
cat.Users("Admin").SetPermissions "Orders", adPermObjTable, _
adAccessSet, adRightAll
End Sub