Config SBS2k3 & Outlook 2k3

Hi all,

My script hang's for non comprehesible reason,

I've two contact folders profesional(3500 item) and private(1100 item)

in My Form I list all contact in a combo

When I do'it on private all is Ok , but when I do the same thing on
Professional it hang's every time on the 242st item

there's no Pb on this item, (I delete it but it still not working) here is a
part of my code

TKS FOR Help

================================================== ==================

Set FormPage = Item.GetInspector.ModifiedFormPages("ContactP")

Set Control = FormPage.Controls("TmpLst")

Set myFolder = Application.GetNamespace("MAPI").Folders..........

Set myItems = myFolder.Items

myItems.Sort "[CompanyName]", False

For Each myItems in myItems

nbr = nbr + 1

Ctct = nbr & vbtab& myitems.FullName

Control.addItem Ctct

next

================================================== =====
--
Knowlege grows when shared.

http://bensoft.miniville.fr/tra