Private Sub KundAuft_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAuftDetDataSet.tblAuftrag". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TblAuftragTableAdapter.Fill(Me.KdAuftDetDataSet.tblAuftrag)
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAuftDetDataSet.tblKunde". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TblKundeTableAdapter.Fill(Me.KdAuftDetDataSet.tblKunde)
        myCM = CType(Me.BindingContext(Me.KdAuftDetDataSet.tblKunde), _
          CurrencyManager)
        myCM.Position = Me.kundID
    End Sub