Public Class NewKunde
    Private counter As String
    Private Sub NewKunde_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "ManagementSystemDataSet.Kunden". Sie können sie bei Bedarf 
        ' verschieben oder entfernen.
        Me.KundenTableAdapter.Fill(Me.ManagementSystemDataSet.Kunden)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btAdd.Click
        Dim Row As DataRow = 
 
 
        Try
            Me.Validate()
            Me.BS_NewCustomer.EndEdit()
            MsgBox("END")
            'omg
            Me.KundenTableAdapter.Update(Me.ManagementSystemDataSet.Kunden)
 
'Hier bekomme ich immer die Meldung das der Datensatz eingefügt wurde
            MsgBox("Datensatz eingefügt.", MsgBoxStyle.Information, _
              "[Kundendatenbank]")
 
        Catch ex As Exception
            MsgBox("FAILED")
        End Try
 
    End Sub
 
    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
        edId.Text = counter
        GroupBox1.Enabled = True
    End Sub
End Class