From b2f82f3880949c5555d8de803f661894f6496c40 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 1 Feb 2022 15:56:26 +0100
Subject: [PATCH] fix error for profilepreselection

---
 Global_Indexer/frmIndex.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index 2c537ac..92a2e35 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -1677,8 +1677,8 @@ Public Class frmIndex
                 If CURRENT_LASTDOKART <> "" Then
                     _Logger.Info("Last Saved DocType: {0}", CURRENT_LASTDOKART)
 
-                    Dim oFoundDocType = ComboboxDoctype.Properties.DataSource.
-                        Cast(Of DocType)().
+                    Dim oDocTypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
+                    Dim oFoundDocType = oDocTypes.
                         Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
                         FirstOrDefault()