Sorry Vb only ... never liked C
Dim cat As ADOX.Catalog
Dim usr As ADOX.User
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
Set usr = cat.Users(strUser)
Check out
http://support.microsoft.com/default...b;en-us;304319
for more
Reply With Quote
