Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "请选择登陆用户！", 48, "错误提示"
Exit Sub
End If
Call OpenConn '调用公共模块 (相当于ASP中的调用)
sql = "select * from xtyh where name='" & Me.Combo1.Text & "'" '查询数据库表里的用户名
rs.Open sql, cn, 1, 1 '打开数据库记录集

If Trim(txtMM.Text) = IIf(Trim(IsNull(rs.Fields("pass"))), "", Trim(rs.Fields("pass"))) Then
czy = rs.Fields("name")
czyqx = rs.Fields("czdj")
Call CloseConn
FormZY.Show

Unload Me
Else
MsgBox "密码错误！", 48, "错误提示"
End If
以上代码，密码框（TXTMM.TEXT）输错2次后，就会提示数据库连接错误。提示指向下列代码。
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.cc;Jet OLEDB:Database Password=cjw79512;Persist Security Info=False;"