need help with error

[VidVB6]

Hi All..
Am new to DaniWeb...HI to all u ppl out here:)

Am tryin to run this piece of code...

Private Sub Form_Load()
Dim App As New ERUApplication
Dim uc As New ERUUserContext
Dim Facility As IERUFacility
Dim Room As IERURoom
Dim MemberList As IERUCollection
Dim MemberSet As ERUMemberSet
Dim member As IERUMember
Dim item As IERUItem
Dim acslist As IERUAccessControl
Dim newacslist As IERUAccessControl

Set App = CreateObject("eRoom.Application")
Set MemberSet = New ERUMemberSet

Set uc = App.LoginUser("eroomadmin")
Set Facility = App.GetFacilityByName("Facility1")

Set Room = Facility.GetRoomByName("sample")
Set MemberList = Room.GetMembers(MemberFlagUserOnly)
For Each member In MemberList
MemberSet.AddMember member
Next

Set item = Room.GetItem("0_986") ' a particular folder's ID in eRoom
[B]Set acslist = item.[B]AccessControl[/B].GetAccessList(erMemFlagUsersOnly, erAccessOpen)[/B]

Set newacslist = acslist.SetAccessList(MemberSet, erAccessEdit)

MsgBox (done)

End Sub

Actually I see in eRoom API help files that "AccessControl" (in the bolded line) is a property for IERUItem i.e the object "item". but it doesnt appear in its dropdwn.
The error which am getting is at the red colored line:"expected function or variable"
and "you are not allowed to do that" at the bolded line.

can anyone help...??
this code is eRoom specific..Hope someone here knows abt it:)
Thanks in Advance