Dim lijst As New ObservableCollection(Of Locatie)

        Dim sql As String = "SELECT id, locatie, adres, eigendom, dikte FROM locaties WHERE boomsoort_id = ?"
        Dim pars(0) As OleDbParameter
        Dim param As New OleDbParameter
        param.Value = boomSoort
        pars(0) = param