Sub List_UsersInGroups()
Dim conn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim grp As New ADOX.Group
Dim myUser As New ADOX.User
Dim strDB As String
Dim strSysDb As String
strDB = CurrentProject.Path & "\mydb.mdb"
strSysDb = CurrentProject.Path & "\mydb.mdw"
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
cat.ActiveConnection = conn
For Each grp In cat.Groups
Debug.Print "Group Name: " & grp.Name
If cat.Groups(grp.Name).Users.count = 0 Then
Debug.Print "There are no users in the " & grp & " group."
End If
For Each myUser In cat.Groups(grp.Name).Users
Debug.Print "User Name: " & myUser.Name
Next myUser
Next grp
Set cat = Nothing
conn.Close
Set conn = Nothing
End Sub