Problem with list box

[Guest]

Hello
I am using a list box List10 to list the access groups.
I am using another listbox list7 to list users
This function is working fine if i input the group name as string.
Public Sub EnumGroupUsers(strGroup As String)
Dim wrk As DAO.Workspace
Dim varUser As Variant
Dim ListUser As String
Set wrk = DBEngine(0)
For Each varUser In wrk.Groups(strGroup).Users
ListUser = ListUser & vbTab & varUser.Name & ";"
Me.List7.RowSource = ListUser
Next varUser
Set wrk = Nothing
End Sub

When I try to use a selected item from list10(Groupslist). It gives the
error. "Item not found in this collection"
This is the code to choose from list 10
Private Sub Command2_Click()
EnumGroupUsers (Me.List10)
End Sub

Please Help Me

 

[TC]

It's hard to tell without knowing what line of code that error occurs
on.

So - what line of code does the error occur on?

TC (MVP Access)
http://tc2.atspace.com

 

[Guest]

Hello
I"ve relaized the problem it was vbTab in the Listuser. It has to be removed