在你确定你的存储过程有返回值的前提下把
          Dim dr As SqlDataReader
            dr = cmd.ExecuteReader()
            If dr.Read() Then
                Dim sum As String = dr("RPT_YARN2(olddate,nowdate,sqls)")
                Response.Write("sum")
            End If
            dr.Close()
            oh.Close()
————————————————>>>>>>>>替换为
dim adapter as new dataadapter()
adapter.selectcommand = cmd
dim data as dataset
adapter.fill(data)