Here it is:

Protected Sub Editor1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Editor1.Load
        Dim connstr As ConnectionStringSettingsCollection = ConfigurationManager.ConnectionStrings
        Dim sqlConn As New SqlConnection(connstr("SRHSWeb").ConnectionString)
        Dim strsql As String
        Dim cmd As SqlCommand
        Dim objRead As SqlDataReader
        Dim titlefld As String

        sqlConn.Open()

        If editpageid > 0 Then
            strsql = "select body,versiontitle,title,right_content from editpages where id = " & Session("editpageid")
            titlefld = "versiontitle"
        Else
            strsql = "select body,title,right_content from pages where id = " & Session("pageid")
            titlefld = "title"
        End If

        cmd = New SqlCommand(strsql, sqlConn)
        objRead = cmd.ExecuteReader

        If objRead.HasRows Then
            objRead.Read()
            Editor1.Text = objRead("body").ToString()
            VersionTitle.Text = objRead(titlefld).ToString()
            pageTitle.Text = objRead("title").ToString()
            Editor2.Text = objRead("right_content").ToString

        End If
        objRead.Close()
        cmd.Dispose()

        strsql = "select * from pages"
        cmd = New SqlCommand(strsql, sqlConn)
        objRead = cmd.ExecuteReader

        Dim tdd As CuteEditor.TreeDropDownList

        tdd = DirectCast(Editor1.ToolControls("LinkTree").Control, CuteEditor.TreeDropDownList)
        tdd.Items.Clear()

        While objRead.Read()
            Dim rootitem As CuteEditor.TreeListItem
            rootitem = New CuteEditor.TreeListItem(objRead("title").ToString, objRead("title").ToString, "~/default.aspx?pageid=" & objRead("id"))
            tdd.Items.Add(rootitem)
        End While
        objRead.Close()

 

        sqlConn.Close()

    End Sub