Public Function GetProgramm(ByVal ProgrammName As String) As DataRowView
        Dim Index As Integer = bsPrüfProgramme.Find("Name", ProgrammName)
        If Index < 0 Then
            Throw New Exception("Der Index bei 'GetProgramm(ByVal ProgrammName" & _
              "As String)' ist kleiner als 0")
            Return Nothing
        End If
        Return CType(bsPrüfProgramme.Item(Index), DataRowView)
    End Function

        Dim Index As Integer = bsPrüfProgramme.Find("Name", ProgrammName)

        Dim Index As Integer = bsPrüfProgramme.Find("Name", "Test1")