Исправить дублирование в генераторе паролей

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim y = MsgBox("Вы действительно собираетесь генерировать пароли?", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation Or MsgBoxStyle.DefaultButton2, "Внимание!")
        If y = MsgBoxResult.Yes Then
            ' Удаляю записи
            Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Path)
            Con.Open()
            Dim SqlCom As New OleDb.OleDbCommand("DELETE FROM GenPass", Con)
            SqlCom.ExecuteNonQuery()
            Con.Close()
            'Обновляю DataGridView Форма1
            Me.Hide()
            F1.Show()
            F1.GenPassTableAdapter.Fill(F1.AdminOfficeDataSet.GenPass)
            
            Dim plogin As String
            Dim pfio As String
            Dim pnovell As String
            Dim pasopd As String
            Dim pikis As String
            Dim KSQL As String
            Dim queryString As String = "SELECT * FROM Shtat"
            Using conn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Path)
                Dim command1 As New OleDb.OleDbCommand(queryString, conn1)
                conn1.Open()
                Dim reader As OleDb.OleDbDataReader
                reader = command1.ExecuteReader
                While reader.Read()
                    plogin = reader.GetString(0)
                    pfio = reader.GetString(1)
                    pnovell = reader.GetString(2)
                    pasopd = reader.GetString(3)
                    pikis = reader.GetString(4)
                    'Считываю іні-файл з наборм символов для генерации паролей
                    Dim mass() As String = IO.File.ReadAllLines("AdminOffice.ini", System.Text.Encoding.Default)
                    Dim mass13 = From nn In mass Select nn.Split(New String() {" = "}, StringSplitOptions.RemoveEmptyEntries)(1)
                    Dim chars1 As String
                    chars1 = mass13.ToArray(0)
                    chars2 = mass13.ToArray(1)
                    chars3 = mass13.ToArray(2)
                    chars4 = mass13.ToArray(3)
 
                    'Генерирую пароли
                    If pnovell = "+" Then
                        Dim r As New Random
                        Dim lol As String = ""
                        Dim chars As List(Of Char) = chars1.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol = lol + chars(r.Next(0, chars1.ToCharArray.Length))
                        Next
                        chars = chars2.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol = lol + chars(r.Next(0, chars2.ToCharArray.Length))
                        Next
                        chars = chars3.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol = lol + chars(r.Next(0, chars3.ToCharArray.Length))
                        Next
                        chars = chars4.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol = lol + chars(r.Next(0, chars4.ToCharArray.Length))
                        Next
                        pnovell = lol
                        lol = ""
                    Else
                        pnovell = "---"
                    End If
 
                    If pasopd = "+" Then
                        Dim r1 As New Random
                        Dim lol1 As String = ""
                        Dim charss As List(Of Char) = chars1.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol1 = lol1 + charss(r1.Next(2, chars1.ToCharArray.Length))
                        Next
                        charss = chars2.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol1 = lol1 + charss(r1.Next(2, chars2.ToCharArray.Length))
                        Next
                        charss = chars3.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol1 = lol1 + charss(r1.Next(2, chars3.ToCharArray.Length))
                        Next
                        charss = chars4.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol1 = lol1 + charss(r1.Next(2, chars4.ToCharArray.Length))
                        Next
                        pasopd = lol1
                        lol1 = ""
                    Else
                        pasopd = "---"
                    End If
 
                    If pikis = "+" Then
                        Dim r2 As New Random
                        Dim lol2 As String
                        Dim chars As List(Of Char) = chars1.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol2 = lol2 + chars(r2.Next(3, chars1.ToCharArray.Length))
                        Next
                        chars = chars2.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol2 = lol2 + chars(r2.Next(3, chars2.ToCharArray.Length))
                        Next
                        chars = chars3.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol2 = lol2 + chars(r2.Next(3, chars3.ToCharArray.Length))
                        Next
                        chars = chars4.ToCharArray.ToList
                        For i = 1 To 2 ' минимальное количество символов и максимальное
                            lol2 = lol2 + chars(r2.Next(3, chars4.ToCharArray.Length))
                        Next
                        pikis = lol2
                        lol2 = ""
                    Else
                        pikis = "---"
                    End If
                     ' Записываю результат в таблицу
                    Dim Connect As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path)
                    KSQL = "INSERT INTO Genpass(login, fio, novell, asopd, ikis) VALUES(@p1, @p2, @p3, @p4, @p5)"
                    Dim Command As New OleDb.OleDbCommand(KSQL, Connect)
                    Command.Parameters.Add("@p1", OleDb.OleDbType.BSTR, 0).Value = plogin
                    Command.Parameters.Add("@p2", OleDb.OleDbType.BSTR, 0).Value = pfio
                    Command.Parameters.Add("@p3", OleDb.OleDbType.BSTR, 0).Value = pnovell
                    Command.Parameters.Add("@p4", OleDb.OleDbType.BSTR, 0).Value = pasopd
                    Command.Parameters.Add("@p5", OleDb.OleDbType.BSTR, 0).Value = pikis
                    Connect.Open()
                    Command.ExecuteNonQuery()
                    Connect.Close()
                    
                End While
                reader.Close()
            End Using
        Else
        End If
        ' Обновляю DataGridView Форма1
        Me.Hide()
        F1.Show()
        F1.GenPassTableAdapter.Fill(F1.AdminOfficeDataSet.GenPass)
    End Sub