Выполнение пакетов DTS с WithEvents - VB

Формулировка задачи:

Господа, скажите свое мудрое слово!
Просто запускаю сохраненный на SQL Server пакет DTS из кода.
Код примитивный:
Public dtsPackage as DTS.Package2
_______________________________
Private Sub Command1_Click()
Set dtsPackage = New Package
dtsPackage.LoadFromSQLServer "сервер", "юзер", "пароль", , , , , "пакет"
dtsPackage.Execute
Set dtsPackage = Nothing
End Sub
Работает отлично.
Стоит в строчку "Public dtsPackage as DTS.Package2" добавить
WithEvents, как все ломается.
Вылетает системная ошибка (про память и read) и на ее фоне сообщение от провайдера,
что, мол, EXCEPTION_ACCESS_VIOLATION. Естественно, VB затем закрывается.
SQL Server 2000, VB 5.
Куда бежать?

Решение задачи: «Выполнение пакетов DTS с WithEvents»

textual
                            Листинг программы 
                        
                            <font color="blue">Private</font> objPackage <font color="blue">As</font> DTS.Package2
<font color="blue">Private</font> <font color="blue">WithEvents</font> objPkgEvents <font color="blue">As</font> DTS.Package

<font color="blue">Set</font> objPackage = <font color="blue">New</font> DTS.Package
<font color="blue">Set</font> objPkgEvents = objPackage