密码管理的代码问题

Option Compare Database
Dim rs As New ADODB.Recordset
Dim flag As Boolean
Sub common()
If IsNull(Txt_name) Then
MsgBox "请输入姓名", vbCritical, "提示"
  Txt_name.SetFocus
  flag = False
  End If
  If IsNull(Txt_pwd1) Then
MsgBox "请输入用户名！", vbCritical, "提示"
 Txt_name.SetFocus
 flag = fasle
 End If
 If IsNull(Txt_pwd1) Then
 Txt_pwd1.SetFocus
  flag = fasle
  End If
  If IsNull(Txt_pwd2) Then
MsgBox "请输入用户名！", vbCritical, "提示"
 Txt_pwd2.SetFocus
 flag = fasle
 End If
 If Txt_pwd1 <> Txt_pwd2 Then
 MsgBox "密码不正确", vbCritical, "提示"
 Txt_pwd1.SetFocus
 Txt_pwd1 = ""
 Txt_pwd2 = ""
 flag = fasle
 End If
 End Sub

  End Sub
End Sub

Private Sub btn_add_Click()
flag = False
common
If flag = ture Then
rs.Open "管理员", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("用户名") = Txt_name
rs("密码") = Txt_pwd1
rs.Update
rs.Close
Set rs = Nothing
MsgBox "成功添加新用户！"
End If
End Sub

Private Sub btn_xiugai_Click()
flag = ture
common
If flag = True Then
Dim str As String
str = "select * form 管理员 where 用户名='" & Txt_name & "'and 密码='" & Txt_pwd1 & "'"
Set rs = exeSQL(str)
If Not rs.EOF Then
User = Txt_name
DoCmd.OpenForm "新密码"
Else
 MsgBox "找不到该用户"
 End If
 End If
End Sub

运行时显示，方法和数据成员为找到，本人是菜鸟，这些代码是在书上扒下来的，希望大家帮助