Dim newCustomerRow As ManagementSystemDataSet.KundenRow
        Try
            newCustomerRow = ManagementSystemDataSet.Kunden.NewRow()
            newCustomerRow.ID = edId.Text
            newCustomerRow.Name = edName.Text
 
            ManagementSystemDataSet.Kunden.Rows.Add(newCustomerRow)
 
'Tableadapter.Update
            KundenTableAdapter.Update(ManagementSystemDataSet.Kunden)
            MsgBox("Datensatz eingefügt.", MsgBoxStyle.Information, _
              "[Kundendatenbank]")
        Catch ex As Exception
            MsgBox("FAILED")
            MsgBox(ex.ToString)
        End Try