Access数据库密码生成器

'Access数据库密码生成器

'    在使用ACCESS数据库的时候都希望加个密码，让别人无法进入数据库中去随意的查看数据，手动写总是有一些规律在里面。下面这段代码可以生成一个20位的随机密码。

Private Sub Command1_Click()
Dim x As String
Dim y As Integer
For i = 1 To 20
Do
y = Int(Rnd(i) * 83 + 33)
Loop Until y <> 59
x = x & Chr(y)
Next i
Me.Text1.Text = x
End Sub

Private Sub Form_Load()
Randomize
End Sub