Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim fil As String
        fil = TextBox1.Text
        daKompo.Fill(DsMaster1, "GAN_Komponenten")
        With dvKompo
            .Table = DsMaster1.Tables("GAN_Komponenten")
            .AllowDelete = True
            .AllowEdit = True
            .AllowNew = True
            .RowFilter = "GAN_NR'" & fil & "'"
        End With
    End Sub