Функция не возвращает Notesdocument из другой БД

Function MyGetMainDoc(UN As String) As NotesDocument
 
Dim ws As New NotesUIWorkspace
Dim parent As NotesDocument
Dim db As New NotesDatabase("","")
Dim view As NotesView
 
On Error Goto Errhandle
 
If Not db.OpenWithFailover( MyGetServer("DBDocs"),MyGetDB("DBDocs")) Then
Messagebox "Документ не найден, возможно он был удален, или БД временно не доступна!"
Exit Function
End If
Set view = db.GetView("($UN)")
Set parent = view.GetDocumentByKey(UN)
 
If Not (parent Is Nothyng) Then
Set MyGetMainDoc = parent
Else
If Not db.OpenWithFailover( MyGetServer("DBArchive"),MyGetDB("DBArchive")) Then
Messagebox "Документ не найден, возможно он был удален, или БД временно не доступна!"
Exit Function
End If
Set view = db.GetView("($UN)")
Set parent = view.GetDocumentByKey(UN)
 
If Not (parent Is Nothyng) Then
Set MyGetMainDoc = parent
Else
If Not db.OpenWithFailover(MyGetServer("DBTrash"),MyGetDB("DBTrash")) Then
Messagebox "Документ не найден, возможно он был удален, или БД временно не доступна!"
Exit Function
End If
Set view = db.GetView("($UN)")
Set parent = view.GetDocumentByKey(UN)
 
If Not (parent Is Nothyng) Then
Set MyGetMainDoc = parent
Else
Set MyGetMainDoc = Nothyng
End If
End If
End If
 
Exit Function
Errhandle:
Messagebox "Error on MyGetMainDoc" & Str(Err) & ": " & Error$+"on line" & Cstr(Erl)
Exit Function
 
End Function