[VB.NET] طلب كود بعد الرجاء - نسخة قابلة للطباعة

كود :
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Butsave.Click

        Dim query As String

        Try

            If ToDo = "add" Then

                query = "INSERT INTO invoicepro (id_user,codpro,extnumpro,extprice,qasd1,qasd2,abbaqy,datetak) VALUES(@id_user,@codpro,@extnumpro,@extprice,@qasd1,@qasd2,@abbaqy,@datetak) "

            Else

                query = "UPDATE invoicepro SET id_user=@id_user ,codpro=@codpro ,extnumpro=@extnumpro ,extprice=@extprice ,qasd1=@qasd1 ,qasd2=@qasd2 ,abbaqy=@abbaqy,datetak=@datetak  WHERE IDInvoices= " & id



            End If



            cmd = New OleDbCommand(query, Conn)

            cmd.Parameters.Add(New OleDbParameter("@id_user", OleDbType.VarChar, 200)).Value = Textname.Text

            cmd.Parameters.Add(New OleDbParameter("@codpro", OleDbType.VarChar, 200)).Value = Textpro.Text

            cmd.Parameters.Add(New OleDbParameter("@extnumpro", OleDbType.VarChar, 200)).Value = Textnum.Text

            cmd.Parameters.Add(New OleDbParameter("@extprice", OleDbType.VarChar, 200)).Value = Textprice.Text

            cmd.Parameters.Add(New OleDbParameter("@qasd1", OleDbType.VarChar, 200)).Value = Textqasd1.Text

            cmd.Parameters.Add(New OleDbParameter("@qasd2", OleDbType.VarChar, 200)).Value = Textqasd2.Text

            cmd.Parameters.Add(New OleDbParameter("@abbaqy", OleDbType.VarChar, 200)).Value = Labbaqy.Text

            cmd.Parameters.Add(New OleDbParameter("@datetak", OleDbType.Date)).Value = DateTi.Value



            Conn.Open()

            cmd.ExecuteNonQuery()



            cmd.CommandText = "UPDATE Materials SET QuantityAvailable= @QuantityAvailable WHERE MaterialBarCode = '" & Textpro.Text & "'"

            cmd.Parameters.AddWithValue("QuantityAvailable", Val(Textnum.Text) - 1)

            cmd.ExecuteScalar()





            MsgBox("تم الحفظ  بنجاح")



        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            Conn.Close()



        End Try

    End Sub