大家看看，这段代码出错了，要怎么改，谢谢，，在线等，当天结贴！！！！！！
Private   Sub   addnewitem()
                Dim   nowTable   As   DataTable   =   New   DataTable( "nowCartTable ")
                nowTable   =   Session( "myCartTable ")
                Dim   data   As   DataSet
                With   New   BusinessRule.Ecom

                        data   =   .GetPro(ID.Text)

                End   With

                Dim   newDR   As   DataRow

                newDR   =   nowTable.NewRow


                newDR.Item(0)   =   ID.Text
                newDR.Item(1)   =   data.Tables(0).Rows(0).Item(2)
                newDR.Item(2)   =   data.Tables(0).Rows(0).Item(5)
                newDR.Item(3)   =   1
                newDR.Item(4)   =   newDR.Item(2)
                nowTable.Rows.Add(newDR)

                Session( "myCartTable ")   =   nowTable

        End   Sub
-----------------------------
Object   reference   not   set   to   an   instance   of   an   object.  
Description:   An   unhandled   exception   occurred   during   the   execution   of   the   current   web   request.   Please   review   the   stack   trace   for   more   information   about   the   error   and   where   it   originated   in   the   code.  

Exception   Details:   System.NullReferenceException:   Object   reference   not   set   to   an   instance   of   an   object.

Source   Error:  


Line   147:                 Dim   newDR   As   DataRow
Line   148:
Line   149:                 newDR   =   nowTable.NewRow
Line   150:
Line   151:

Private   Sub   addnewitem()
                Dim   nowTable   As   DataTable   =   New   DataTable( "nowCartTable ")
                nowTable   =   Session( "myCartTable ")
                Dim   data   As   DataSet
                With   New   BusinessRule.Ecom

                        data   =   .GetPro(ID.Text)

              &n