VB.NET รบกวนขอโค้ด random รหัสจากฐานข้อมูล access แบบไม่ซ้ำหน่อยนะคะ

Public Shared Function CreateRandomPassword(PasswordLength As Integer) As String
	Dim _allowedChars As String = "abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ0123456789"
	Dim randNum As New Random()
	Dim chars As Char() = New Char(PasswordLength - 1) {}
	Dim allowedCharCount As Integer = _allowedChars.Length

	For i As Integer = 0 To PasswordLength - 1
		chars(i) = _allowedChars(CInt((_allowedChars.Length) * randNum.NextDouble()))
	Next

	Return New String(chars)
End Function