Dim dsSavedReport As DataSet = New DataSet
        Dim adapSavedReport As SqlDataAdapter
        Dim strSavedReport As String
        Dim col As HyperLinkColumn = New HyperLinkColumn
        Dim colXML As BoundColumn = New BoundColumn

        cnn.Open()
        strSavedReport = "select HREF, serverName, ReportName, ReportTitle, CubeName, " _
        & " XMLData from saveReport where serverName='" & serverName & "'"
        adapSavedReport = New SqlDataAdapter(strSavedReport, cnn)


        adapSavedReport.Fill(dsSavedReport, "saveReport")
        dgSavedReport.DataSource = dsSavedReport

        col.DataTextField = "ReportName"
        col.HeaderText = "Имя отчета"

        col.Target = "_blank"

        col.DataNavigateUrlField = "HREF"
        dgSavedReport.Columns.Add(col)


        colXML.DataField = "XMLData"
        colXML.Visible = False
        dgSavedReport.Columns.Add(colXML)

        dgSavedReport.DataBind()