这个窗体的代码 不知道哪里错了 请各位知道的帮忙下

Option Compare Database

Public flag As Integer

Private Sub cmdadd_Click()
On Error GoTo Err_cmdadd_Click
flag = 1
用户名.Locked = False
密码.Locked = False
备注.Locked = False
Form.AllowAdditions = True
cmdfirst.Enabled = False
cmdbefore.Enabled = False
cmdnext.Enabled = False
cmdlast.Enabled = False
cmdedit.Enabled = False
cmdcancel.Enabled = True
cmdsave.Enabled = True
cmddel.Enabled = False
用户名.SetFocus
cmdadd.Enabled = False
DoCmd.GoToRecord , , acNewRec
txtpassword = ""
Exit_cmdadd_Click:
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub

Private Sub cmdcancel_Click()
On Error GoTo Err_cmdcancel_Click
If flag = 1 Then
cmdfirst.Enabled = True
cmdbefore.Enabled = True
cmdnext.Enabled = True
cmdlast.Enabled = True
cmddel.Enabled = False
cmdedit.Enabled = True
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdedit.SetFocus
cmdcancel.Enabled = False
Form.AllowDeletions = True
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
txtpassword.Value = ""
Form.AllowDeletions = False
DoCmd.GoToRecord , , acPrevious
flag = 0
用户名.Locked = True
密码.Locked = True
备注.Locked = True
Form.AllowAdditions = False
End If
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70
Exit_cmdcancel_Click:
Exit Sub
Err_cmdcancel_Click:
'MsgBox err.Description
cmdsave.SetFocus
cmdcancel.Enabled = False
Resume Exit_cmdcancel_Click
End Sub

Private Sub cmddel_Click()
On Error GoTo Err_cmddel_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
cmdfirst.Enabled = True
cmdbefore.Enabled = True
cmdnext.Enabled = True
cmdlast.Enabled = True
Form.AllowAdditions = False
Form.AllowEdits = True
Form.AllowDeletions = False
Form.RecordLocks = 0
用户名.Locked = True
密码.Locked = True
备注.Locked = True
cmdedit.Enabled = True
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
txtpassword.Value = ""
cmdedit.SetFocus
cmdedit.Enabled = False
flag = 0
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click

End Sub

Private Sub cmdedit_Click()
If txtpassword.Value <> 密码 Then
MsgBox "确认密码不对，无法编辑，请再次输入确认密码"
txtpassword.Value = ""
txtpassword.SetFocus
Exit Sub
Else
Form.AllowDeletions = True
密码.Locked = False
备注.Locked = False
cmdfirst.Enabled = False
cmdbefore.Enabled = False
cmdnext.Enabled = False
cmdlast.Enabled = False
cmdadd.Enabled = False
cmddel.Enabled = True
cmdsave.Enabled = True
cmdcancel.Enabled = True
txtpassword.Value = ""
cmdsave.SetFocus
cmdedit.Enabled = False
End If
End Sub

Private Sub cmdsave_Click()
On Error GoTo Err_cmdsave_Click
cmdfirst.Enabled = True
cmdbefore.Enabled = True
cmdnext.Enabled = True
cmdlast.Enabled = True
If flag = 1 Then
If txtpassword.Value <> 密码 Then
MsgBox " 两个密码不一样，无法保存，请再次输入！"
txtpassword.Value = ""
txtpassword.SetFocus
Exit Sub
End If
End If
If flag = 2 Then
If txtpassword.Value <> 密码 Then
MsgBox " 密码已改，请输入正确的确认密码或设置密码！"
txtpassword.Value = ""
txtpassword.SetFocus
Exit Sub
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70
Form.AllowAdditions = False
Form.AllowDeletions = False
Form.AllowEdits = True
Form.RecordLocks = 0
用户名.Locked = True
密码.Locked = True
备注.Locked = True
cmdedit.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = False
cmdcancel.Enabled = False
txtpassword.Value = ""
cmdedit.SetFocus
cmdsave.Enabled = False
flag = 0
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub

Private Sub Form_Load()
cmdedit.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = False
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdfirst.Enabled = True
cmdbefore.Enabled = True
cmdnext.Enabled = True
cmdlast.Enabled = True
flag = 0
txtpassword = ""
Form.AllowEdits = True
用户名.Locked = True
密码.Locked = True
备注.Locked = True
Form.AllowDeletions = False
Form.AllowAdditions = False
Form.RecordLocks = 0
End Sub