Private Sub cmb_Prog_SelectedIndexChanged(sender As Object, e As EventArgs) _
   Handles cmb_Prog.SelectedIndexChanged
 
        Me.PassBindingSource.RemoveFilter()
        Me.PassBindingSource.Filter = "Programm = '" & cmb_Prog.Text & "'"
 
 
    End Sub