Sub RefreshDatabase()
        Dim oConn As V82.COMConnector
        Dim oRagent As V82.IServerAgentConnection
        Dim arrBases As Array
        Dim arrClusters As Array
        Dim sAdr As String
        Dim oRoot As V82.IClusterInfo
        Dim oElement As V82.IInfoBaseShort

        oConn = New V82.COMConnector
        sAdr = "TCP://" & TextBoxAddressServer.Text & ":" & TextBoxPort.Text
        Try
            oRagent = oConn.ConnectAgent(sAdr)
        Catch
            MsgBox("Не удалось присоединится к агенту сервера 1С", MsgBoxStyle.OkOnly, "Ошибка при выполнении!")
            Exit Sub
        End Try

        arrClusters = oRagent.GetClusters()
        oRoot = arrClusters(0)
        oRagent.Authenticate(oRoot, TextBoxAdminServer.Text, TextBoxPassAdminServer.Text)
        arrBases = oRagent.GetInfoBases(oRoot)
        ListBases1C.Items.Clear()
        For Each oElement In arrBases
            ListBases1C.Items.Add(oElement.Name)
        Next
        oConn = Nothing
        oRagent = Nothing
        oRoot = Nothing
    End Sub