Подскажите как перебрать все записи в справочнике или документе?

Dim v8 As Object
Dim trade As Object
Dim obj As Object
Dim obj2 As Object
Set v8 = CreateObject("V81.COMConnector")
Set trade = v8.Connect("Srvr=SRV; Ref=buh; Usr=usr;Pwd=pwd;")
Set obj = trade.Catalogs.Банки
obj.Select

For Each obj2 In obj

Next

Вот так не фурычит