[FIX] No unique Values Datatable

                Dim index As Integer = 0
                Dim lDColumn As New DataColumn("RowId", Type.GetType("System.Int32"))
                lDt.Columns.Add(lDColumn)
                For Each dRow In lDt.Rows
                    index = index + 1
                    dRow("RowId") = index

                Next
                lDt.PrimaryKey = New DataColumn() {lDt.Columns("RowId")}