diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb
index 74a5a01..155e68d 100644
--- a/app/DD_PM_WINDREAM/frmAdministration.vb
+++ b/app/DD_PM_WINDREAM/frmAdministration.vb
@@ -92,8 +92,8 @@ Public Class frmAdministration
                     If MyIndicies IsNot Nothing Then
                         Dim i As Integer = 0
                         For Each index As String In MyIndicies
-                            Dim _vektorString As Boolean = False
-                            Dim oIndexType = WINDREAM.GetTypeOfIndex(i)
+                            Dim _vektorString = False
+                            Dim oIndexType = WINDREAM.GetTypeOfIndex(index)
                             i += 1
                             MyIndicies_Types.Add(oIndexType)
                             Select Case oIndexType