再开一贴，ACCESS 加密后错误续

Question

Private Sub Form_Load()
    Dim frmoexestr As String
    frmoexestr = App.Path
    If Right$(frmoexestr, 1) <> "\" Then
        frmoexestr = frmoexestr + "\"
    End If    frmoexestr = frmoexestr + "DB\pms.mdb"
    adouser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & frmoexestr & ";Persist Security Info=False;Jet OLEDB:database password=passwordkey"
    adouser.RecordSource = "select * from [password] where 用户号 <> " & txt_usernum & ""
    adouser.Refresh
End Sub
其他窗体的连接语句相同
可以连接及打开新窗体，但是在打开前会提示密码无效，为什么

Answer 1

ADO控件的属性窗口中的ConnectionString和RecordSource都把它清空。

Answer 2

因为加载控件在先，运行Private Sub Form_Load在后，所以控件预设的属性有错误时会出现这种情况。