请教一个页面后台中 进行2次数据库读取 上下之间的值如何传 !

请问一个页面后台中 进行2次数据库读取 上下之间的值怎么传 在线等!!!!!
就像着样

        Private   Sub   Page_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load
                idd   =   CInt(Request( "companyid "))
                If   Not   IsPostBack   Then
                        gstp()
                End   If
                mycmd   =   New   SqlCommand( "Select   *   from   CompanyContent   where   companyid= "   &   idd,   myconn)
                myconn.Open()
                dtr   =   mycmd.ExecuteReader()
                While   dtr.Read()
                        user_id   =   dtr( "user_id ").ToString
                        companyname   =   dtr( "companyname ").ToString
                        companyaddress   =   dtr( "companyaddress ").ToString
                        companyLxr   =   dtr( "companyLxr ").ToString
                        companytel   =   dtr( "companytel ").ToString
                        MlbigClassName   =   dtr( "MlbigClassName ").ToString
                        Companyms   =   dtr( "Companyms ").ToString
                        Companyfw   =   dtr( "Companyfw ").ToString
                        Companygm   =   dtr( "Companygm ").ToString
                        Companykz   =   dtr( "Companykz ").ToString
                        Companyyye   =   dtr( "Companyyye ").ToString
                        Companydjg   =   dtr( "Companydjg ").ToString
                        Companyyx   =   dtr( "Companyyx ").ToString
                        Companymj   =   dtr( "Companymj ").ToString
                        Companycz   =   dtr( "Companycz ").ToString
                        Companydd   =   dtr( "Companydd ").ToString
                        Companyyb   =   dtr( "Companyyb ").ToString