Public Function ZoekOpTitel(ByVal titel As String) As Integer
        For cntr As Integer = 0 To dvFilms.Count - 1
            If dvFilms.Item(cntr).Item("Titel").ToString.ToUpper.Contains(titel.ToUpper) Then
                Return cntr
            End If
        Next
        Return -1
    End Function