ما الخطأ فى كود الحفظ ... رجاء الدخول

كود الحفظ التالى يعطى رسالة خطأ عند محاولة الحفظ

الكود

Try

            Dim dr As SqlDataReader
            If Trim(TextBox2.Text) = "" Then
                MsgBox("عفـوا... يجـب إدخـال رقـم القـرار ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "Message")
                TextBox2.Focus()
                Exit Sub
            End If

            Dim cmd1 As SqlCommand = New SqlCommand("SELECT nu from tb order by nu", con)


            If con.State = ConnectionState.Open Then con.Close()
            con.Open()
            dr = cmd1.ExecuteReader()
            If dr.HasRows() Then
                MsgBox("  الرقم التسلسلي التالي موجود من قبل ...هل تريد تحديث البيانات ")
                If MsgBox("  الرقم التسلسلي التالي موجود من قبل ...هل تريد تحديث البيانات ", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "تنبيه") = MsgBoxResult.Cancel Then
                    Exit Sub
                End If

            End If

            If TextBox2.Text = "" Then

                'كود اضافة سجل جديد
                Dim Add_NewRow As DataRow = SQLDataSet1.Tables("tb").NewRow()

                If TextBox2.Text = "" Then Add_NewRow("nu ") = DBNull.Value Else Add_NewRow("nu ") = TextBox2.Text.Trim

                If ComboBox1.Text = "" Then Add_NewRow("adress") = DBNull.Value Else Add_NewRow("adress") = ComboBox1.Text.Trim

            


                SQLDataSet1.Tables("tb").Rows.Add(Add_NewRow)




                'كود حفظ الاضافة
                Validate()
                SQLDataAdapter1.Update(SQLDataSet1, "tb")
                SQLDataSet1.AcceptChanges()


                'تحديث قاعدة البيانات
                con.Open()
                SQLDataSet1.Clear()
                SQLDataAdapter1.Fill(SQLDataSet1, "tb")
                con.Close()


                'كود الانتقال الى اخر سجل تم اضافته بعد تخديث قاعدة البيانات
                Me.BindingContext(SQLDataSet1, "tb").Position = Me.BindingContext(SQLDataSet1, "tb").Count - 1



                MsgBox("تم الاضافة بنجاح", 64, "نجاح")

          

            End If


        Catch ex As Exception




            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try

صورة رسالة الخطأ