Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "TTestDatabase1DataSet.TTest". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TTestTableAdapter.Fill(Me.TTestDatabase1DataSet.TTest)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.TTestBindingSource.EndEdit()
        Me.TTestTableAdapter.Update(Me.TTestDatabase1DataSet.TTest)
    End Sub
End Class