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