Господа, скажите свое мудрое слово!
Просто запускаю сохраненный на 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.

Куда бежать?

Конечно. Это стандартные пакетные события.
Собственно, мне они и нужны. Без их обработки мне будет очень тоскливо.

Например.

Private Sub dtsPackage_OnStart(ByVal EventSource As String)

End Sub

Private Sub dtsPackage_OnFinish(ByVal EventSource As String)

End Sub

Private Sub dtsPackage_OnProgress(ByVal EventSource As String, ByVal ProgressDescription As String, ByVal PercentComplete As Long, ByVal ProgressCountLow As Long, ByVal ProgressCountHigh As Long)

End Sub

Спасибо,TIKO!
Вкупе с комментариями мелкомягких все получилось.

1.Действительно Package2 не может быть с событиями.
2.Оказывается, необходимо, чтобы были описаны все события пакета.