проблемы с агентом(

Sub Initialize
Set s = New NotesSession
Set db = s.CurrentDatabase
Set dv = db.GetView("ExportDataView")--------вот эта тоже вызывает подозрения
Set dCol = dv.AllEntries   ------------------------вот на этой строчке!!!!
Set dEntry = dCol.GetFirstEntry
While Not(dEntry Is Nothyng)
Set doc = dEntry.Document
If doc.Form(0) = "Issue_D" And Not doc.IsResponse And doc.PRRNumber_T(0) <> "" Then
Call SetData( doc )
End If
Set dEntry = dCol.GetNextEntry(dEntry)
Wend
 
End SubSub Initialize
 
End Sub

Dim s As NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim resCol As NotesDocumentCollection
Dim doc As NotesDocument
Dim res As NotesDocument
Dim dv As NotesView
Dim dCol As NotesViewEntryCollection
Dim dEntry As NotesViewEntry
Dim v As NotesView
Dim vCol As NotesViewEntryCollection
Dim vEntry As NotesViewEntry
Dim isExist As Integer

Set dv = db.GetView("ExportDataView")
Set doc = dv.getFirstDocument
While NOT(doc is Nothyng) then
Call SetData( doc )
Set doc = dv.GetNextDocument(doc)
WEnd

Set dv = db.GetView("ExportDataView")
Set doc = dv.getFirstDocument
While NOT(doc is Nothyng) then
Call SetData( doc )
Set doc = dv.GetNextDocument(doc)
WEnd