[Hazem1]

تفضل أخي الكريم (كود زر حفظ البيانات ) :

  (Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs

On Error GoTo saveErr

        ()Table15BindingSource.EndEdit
        (Table15TableAdapter.Update(A18DataSet.Table15

        ("Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, "Save
            Case MsgBoxResult.Yes

                ()TextBox1.Select
                ()Table15BindingSource.AddNew


            Case MsgBoxResult.No

                (Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15
                With DataGridView1
                    ()ClearSelection.
                    ReadOnly = True.
                    MultiSelect = False.
                End With

 End Select

ave Err
        Exit Sub
    End Sub