Karen Hill wrote:
I would like to be able to list all the users of a MS Access database
in a combo box. How would one do this? What is the function or Sub
look like to do something like this? I have ADO 3.6 I believe (Access
2000).
Thanks in advance for all your help
Dim usr As User
Dim strUserList As String
For Each usr In DBEngine(0).Users
Select Case usr.Name
Case "Creator", "Engine"
' don't display these
Case Else
strUserList = strUserList & usr.Name & ";"
End Select
Next
Combo0.RowSource = strUserList
--
[OO=00=OO]