Dim db As DataView
        da.Fill(Dataset, "Tabelle")
        db = Dataset.Tables("Tabelle").DefaultView
 
        With tv
            .ValueMember = "Nummer"
            .DisplayMember = "Nummer"
            .DataSource = db
            .ImageList = ImageList
            .ImageIndex = 0
        End With
 
        daKompo.Fill(Dataset2, "Abfrage")
        dg.DataSource = dvKompo

    Private Sub tv_AfterSelect(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.TreeViewEventArgs) Handles tv.AfterSelect
        Dim filter As String
 
 
 
        'Nummer nach der gefilltert wird.
        x = tv.SelectedNode.Text.ToString
 
        'erzeugt den string fuer die rowfilter eigenschaft.
        filter = "Nummer =" & "'" & x & "'"
 
        With dvKompo
            .Table = Dataset2.Tables("Abfrage")
            .AllowDelete = True
            .AllowEdit = True
            .AllowNew = True
            .RowFilter = filter
        End With
    End Sub