Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim text As String = Me.ComboBox1.Text
        Dim drv As DataRowView = Me.ProductsBindingSource.AddNew()
        drv("ProductName") = text
        drv("Discontinued") = False ' Darf nicht Null sein
        Me.ProductsBindingSource.EndEdit()
        Me.OrdersOrder_DetailsBindingSource.Current("ProductID") = drv( _
          "ProductID")
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov