Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
 
           ' DEBUG: catch errors of command builder
            'Dim XCmd As New OleDb.OleDbCommandBuilder(DA)
 
            ' check state of tables and dataadapter 
            Try
                Dim XCmd As New OleDb.OleDbCommandBuilder(DA)
                For Each aTbl As System.Data.DataTable In DS.Tables
                    Dim aChgTbl As DataTable = aTbl.GetChanges
                    If aChgTbl Is Nothing Then
                        Console.WriteLine("Table: {0} Changed: nothing", aTbl.TableName)
                    Else
                        Console.WriteLine("Table: {0} Changed: {1} Rows", aTbl.TableName, aChgTbl.Rows.Count)
                    End If
                Next
                Console.WriteLine("Insert: {0}", DA.InsertCommand.CommandText)
                Console.WriteLine("Update: {0}", DA.UpdateCommand.CommandText)
                Console.WriteLine("Delete: {0}", DA.DeleteCommand.CommandText)
            Catch ex As Exception
                Console.WriteLine("{0}", ex.ToString)
            End Try
            ' END DEBUG
 
            'DS.AcceptChanges()
            DS.GetChanges()
            DA.Update(DS)
            Console.WriteLine(DA.UpdateCommand.CommandText)
            MessageBox.Show("Saved", "ESP MESSAGES", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Catch
                MessageBox.Show("Please check basic information has been typed, " & Chr(13) & "Partner, FORModel, JITModel, PionnerModel, and PlantCode")
                'DS.RejectChanges()
            End Try
    End Sub