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 
        ' "BarcodeDataSet.tbl_barcodes". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.Tbl_barcodesTableAdapter.Fill(Me.BarcodeDataSet.tbl_barcodes)
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub
 
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    'Ich weiß nicht wie man eine Suchfunktion macht :-) und auch nicht wie man 
    ' ein Tabellenwert ändert'
 
    End Sub
End Class