Não grava no banco nem a pau ! :(

Pessoal...consigo acessar os dados mas qdo mando gravar da este erro na linha em vermelho..algm sabe o que pode ser ? Agradeço de coração !

ERRO:

System.NullReferenceException was unhandled by user code

Message="Object reference not set to an instance of an object."

Source="App_Web__wgzoyww"

StackTrace:

at ASP.alterexcluprodutos_aspx.Confirma_Gravacao(Object Sender, EventArgs E) in C:\Autocom\AlterExcluProdutos.aspx:line 112

at System.Web.UI.WebControls.Button.OnClick(EventArgs e)

at System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument)

at System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBa

ckEvent(String eventArgument)

at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)

at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)

at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)

CODIGO FONTE:

Sub BuscaDadosProdutoaAlterar(ByVal CodigoProdutoaAlterar As String)

 Dim SQL = "Select * from PRODUTO where CODIGO=" + "'" + CodigoProdutoaAlterar + "'"

 Dim cmd As New SqlCommand(SQL, Conexao_1)

 Dim DataAdapter_1 = New SqlDataAdapter(cmd)

 

 

 Dim objCommandBuilder As New SqlCommandBuilder(DataAdapter_1)

 

 DataAdapter_1.Fill(Data_Set_Tabelas, "CadastroProdutos")

 DR_1 = Data_Set_Tabelas.Tables("CadastroProdutos").Rows(0)

 

 End Sub

 

 Sub Confirma_Gravacao(ByVal Sender As Object, ByVal E As EventArgs)

 'Busca registro do produto à alterar

 BuscaDadosProdutoaAlterar(Request.QueryString("Codigo"))

 

 

 DR_1 = Data_Set_Tabelas.Tables("CadastroProdutos").Rows(0)

 

 DR_1.Item("DESCR") = tb_Descri.Text

 DR_1.Item("UNIDADE") = tb_unidad.Text

 DR_1.Item("TIPO") = tb_tipo.Text

 

 DataAdapter_1.Update(Data_Set_Tabelas, "CadastroProdutos")

 End Sub

 

 

 

 End Sub