Mega Code Archive
Adding a User to a New Group
<![CDATA[
Sub AddUser_ToNewGroup()
Dim cat As ADOX.Catalog
Dim conn As ADODB.Connection
Dim strDB As String
Dim strSysDb As String
Dim strName As String
On Error GoTo ErrorHandle
strDB = CurrentProject.Path & "\mydb.mdb"
strSysDb = CurrentProject.Path & "\mydb.mdw"
strName = "Elite"
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Jet OLEDB:System Database") = strSysDb
.Properties("User ID") = "Developer"
.Properties("Password") = "mypass"
.Open strDB
End With
Set cat = New ADOX.Catalog
With cat
.ActiveConnection = conn
.Groups.Append strName
.Users("PowerUser").Groups.Append strName
End With
ExitHere:
Set cat = Nothing
conn.Close
Set conn = Nothing
Exit Sub
ErrorHandle:
Set cat = Nothing
If Err.Number = -2147467259 Then
MsgBox strName & " account already exists."
Else
MsgBox Err.Description
End If
Resume ExitHere
End Sub
]]>