diff --git a/.vs/ToolCollection/FileContentIndex/f7c9a83b-acec-43a7-807c-fe8079b1ed59.vsidx b/.vs/ToolCollection/FileContentIndex/e4418cd1-2e7b-4685-90ad-dc7e260c2c68.vsidx
similarity index 62%
rename from .vs/ToolCollection/FileContentIndex/f7c9a83b-acec-43a7-807c-fe8079b1ed59.vsidx
rename to .vs/ToolCollection/FileContentIndex/e4418cd1-2e7b-4685-90ad-dc7e260c2c68.vsidx
index 332aece..3b63ed7 100644
Binary files a/.vs/ToolCollection/FileContentIndex/f7c9a83b-acec-43a7-807c-fe8079b1ed59.vsidx and b/.vs/ToolCollection/FileContentIndex/e4418cd1-2e7b-4685-90ad-dc7e260c2c68.vsidx differ
diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb
index aab67c1..3291f6b 100644
--- a/ToolCollection/frmNIHauptseite.vb
+++ b/ToolCollection/frmNIHauptseite.vb
@@ -479,9 +479,24 @@ Public Class frmNIHauptseite
                                                             bwProfil.ReportProgress(oDTResults.Rows.Count)
                                                             _Logger.Debug($">> Working on [{oDTResults.Rows.Count}] documents via SQL...")
                                                             If Not IsNothing(_windreamNI) Then
+
                                                                 Dim i As Integer = 0
                                                                 For Each oROW As DataRow In oDTResults.Rows
-                                                                    Dim oFilenameWM = oROW.Item(1).ToString
+                                                                    Dim oColumnIndex As Integer
+                                                                    Try
+                                                                        Dim oCheckInt As Integer
+                                                                        Dim oCheckStr As String
+                                                                        If Integer.TryParse(oROW.Item(1), oCheckInt) Then
+                                                                            ' childAge successfully parsed as Integer
+                                                                            oColumnIndex = 0
+                                                                        Else
+                                                                            oColumnIndex = 1
+                                                                        End If
+
+                                                                    Catch ex As Exception
+
+                                                                    End Try
+                                                                    Dim oFilenameWM = oROW.Item(oColumnIndex).ToString
                                                                     oFilenameWM = oFilenameWM.Replace("W:", "")
                                                                     oFilenameWM = oFilenameWM.Replace("\\windream\objects", "")
                                                                     _Logger.Debug($">> Trying to create WMObject by path [{oFilenameWM}] ...")