Как создать уникальный автоматический ключ для текстового поля идентификатора сотрудника

---

я пытаюсь создать уникальный идентификационный номер для своего текстового поля id, я пробовал свой код, но не работает. Это должно сработать после нажатия кнопки новая запись

Что я уже пробовал:

Public Shared Function GetUniqueKey(ByVal maxSize As Integer) As String
    Dim chars As Char() = New Char(61) {}
    chars = "123456789".ToCharArray()
    Dim data As Byte() = New Byte(0) {}
    Dim crypto As New RNGCryptoServiceProvider()
    crypto.GetNonZeroBytes(data)
    data = New Byte(maxSize - 1) {}
    crypto.GetNonZeroBytes(data)
    Dim result As New StringBuilder(maxSize)
    For Each b As Byte In data
        result.Append(chars(b Mod (chars.Length)))
    Next
    Return result.ToString()
End Function

Public Sub AutoGenerate()
    EmployeeID.Text = "E-" & GetUniqueKey(6)
End Sub

Private Sub NewRecord_Click(sender As Object, e As EventArgs) Handles NewRecord.Click
    AutoGenerate()
    Reset()
End Sub

---