Проблема с самодельными инструментами

Question

После перехода на WinXP SP2 перестали работать некоторые самописные инструменты (на VBA) в ArcMap 9.1 SP1. В частности код

Dim pEditor As IEditor
Dim pID As New UID
pID = "esriEditor.Editor"
Set pEditor = Application.FindExtensionByCLSID(pID)
Set pWorkspaceFactory = New SdeWorkspaceFactory
Set pWorkspace = pWorkspaceFactory.Open(pPropSet, 0)
Set pFeatureWorkspace = pWorkspace
Set pFeatureClass =pFeatureWorkspace.OpenFeatureClass(<слой_карты>)
Set pWorkspaceEdit = pFeatureWorkspace
 
If pEditor.EditState <> esriStateEditing Then
  pEditor.StartEditing pWorkspaceEdit
End If

Вылетает с ошибкой "Automation error" на выделенной строке.
Этот же код, в этом же проекте замечательно работает на соседней машине под WinXP SP1.
Установка SP2 для ArcMap 9.1 не помогла. В чем может быть проблема