Found a samle from Carlton Jones in another thread....
'Example 2 'This example sets a contact records accessor list to all accessors. Dim cList As ContactList = ActFwk.Contacts.GetContacts(Nothing) Dim cContact As Contact = cList(0) Dim aAccessors() As Accessor = ActFwk.Contacts.GetAccessors() ActFwk.Contacts.SetContactAccessors(cContact, aAccessors)
The trick here is that you need to setup the Accessors Array that you want to have access to that contact.
This example set that to everyone, which you'll need to limit.
//Example 2 //This example sets a contact records accessor list to all accessors. ContactList cList = ActFwk.Contacts.GetContacts(null); Contact cContact = cList; Accessor aAccessors = ActFwk.Contacts.GetAccessors(); ActFwk.Contacts.SetContactAccessors(cContact, aAccessors);