Outlook 2003
Exchange Server

Hi all,
i have a problem when i try to find a custom contact in VB6.
here's the code:

"Public oContactFolder As Outlook.MAPIFolder
.
Set oContactFolder = oNS.Folders("Public Folders").Folders("All Public Folders").Folders("My Custom Folder")
.
Dim newitem as Object
Set newitem = oContactFolder.Items.Find("[ID] = '" & .Fields("conto") & "'") "

Where ID is my custom property and conto is the value that i want to search.
The return error is ID property not found.

thanks a lot.