Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim ta As New _
          HaertepruefungDataSetTableAdapters.tblPruefungenTableAdapter()
        Dim dt As New HaertepruefungDataSet.tblPruefungenDataTable()
        Dim row As HaertepruefungDataSet.tblPruefungenRow
 
        'Dim bm As BindingManagerBase
        'bm = Me.BindingContext(dt)
 
 
        'Daten aus Datenbank holen
        ta.Fill(dt)
 
        'neues Zeilenobjekt
        row = dt.NewtblPruefungenRow()
 
        'Daten füllen
        row.Wert_Spitze = Me.Messwert1.Text
        row.Wert_Mitte = Me.Messwert2.Text
        row.Wert_Schaft = Me.Messwert3.Text
        row.Pruefdatum = Date.Now()
        row.EndEdit()
 
        'Füge Zeile in das DataTable Objekt ein
        'dt.Rows.Add(row)
        'bm.Position = bm.Count
 
        dt.AddtblPruefungenRow(row)
 
        'Schreibe die Daten in die Datenbank
        ta.Update(dt)
 
        'Resourcen bereinigen
        ta.Dispose()
        dt.Dispose()
 
        Exit Sub
    End Sub