Imports System.Data
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.AngeboteTableAdapter.Fill(Me.KleinformateDataSet.Angebote)
 
        Label25.DataBindings.Add(New Binding("text", AngeboteBindingSource, _
          "BSH"))
        Label26.DataBindings.Add(New Binding("text", AngeboteBindingSource, _
        "Partner"))
 
    End Sub
 
  Private Sub Btn_Save_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn_Save.Click
 
        Dim objZeile As DataRow
        objZeile = KleinformateDataSet.Tables("Angebote").NewRow()
        With objZeile
            .Item("BSH") = DruckBSH
            .Item("Partner") = DruckPart
            .Item("BU") = DruckBU
 
  End With
 
        KleinformateDataSet.Tables("Angebote").Rows.Add(objZeile)
 
        AngeboteTableAdapter.Update(KleinformateDataSet.Angebote)
    End Sub