[ابراهيم ايبو]

السلام عليكم اخي الكريم
جرب الكود بهذا الشكل 

كود :

  Try

           Dim dt As New DataTable
           Dim last As Integer = dt.Rows.Count
           Dim Row As DataRow = dt.NewRow
           dt.Rows.Add()

           dt.Rows(last).Item("اسم الحقل الاول") = CInt(TextBox1.Text) ' اذا كان هذا الحقل من نوع رقمي نحوله من نص الى رقم
           dt.Rows(last).Item("اسم الحقل الثاني") = TextBox2.Text
           dt.Rows(last).Item("اسم الحقل الثالث") = TextBox3.Text
           dt.Rows(last).Item("اسم الحقل الرابع") = TextBox4.Text
           dt.Rows(last).Item("اسم الحقل الخامس") = TextBox5.Text
           dt.Rows(last).Item("اسم الحقل السادس") = TextBox6.Text
           dt.Rows(last).Item("اسم الحقل السابع") = TextBox7.Text
       
           Dim save As New SqlCommandBuilder()
           save = New SqlCommandBuilder(da)
           da.Update(dt)
           dt.AcceptChanges()
           MessageBox.Show("تم اضافة السجل بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Catch ex As Exception
           MessageBox.Show("لم تتم الاضافة ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try