Проверка доступа между Domino серверами

Sub Initialize
    On Error GoTo ErrH
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase ' роутер
    Dim doc As NotesDocument, docD As NotesDocument ' доки в роутере и докобороте
    Dim server As String

    Print "ТЕСТ КОННЕТА СЕРВЕРОВ!"
        Set db = session.CurrentDatabase
    Dim DocObor As  NotesDatabase' документооборот
    Print "1"
    Set DocObor = session.GetDatabase("t/TADM","...pdoc/docents.nsf")
    Print "2"
    If Not DocObor.Isopen Then'проверка доступа к базе Документооборот'
        Print "Нет доступа к БД Документы!"
        Exit Sub
    End If
        Print "ТЕСТ КОННЕТА СЕРВЕРОВ! - Отработал!"
    Exit Sub
ErrH:
    Print "ТЕСТ КОННЕТА СЕРВЕРОВ!- Ошибка: " & Error(Err) & " в строке " & Erl
End Sub