更改口令的问题？

Question

连接有密码的数据库
Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connection
cnn1.Open "provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Jet OLEDB:Database Password=1111"Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from 11", cnn1Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

Answer 1

Private Sub Form_Load()
    Dim strPwd As String
    
    strPwd = GetSetting(App.EXEName, "Login", "PassWord", "") '从注册表中取出
    strPwd = DeCipher(strPwd)
    
    '然后用strPwd去打开数据库
    '...
End Sub
Private Sub cmdChangePassword_Click()
    SaveSetting App.EXEName, "Login", "PassWord", Cipher(txtPassWord.Text) '保存到注册表
End Sub
Private Function Cipher(strText) As String
    '加密，返回加密后的字符串
    '...
End Function
Private Function DeCipher(strText) As String
    '解密，返回原字符串
    '...
End Function