密码修改不成功

主要原因为，用户名使用了组合框，其行来源如下：

SELECT 用户密码表.ID, 用户密码表.用户 FROM 用户密码表;

绑定列属性是1，所有组合框显示的是用户名，而实际上是保存的ID值，所以出错，不能修改密码：

可按下面的代码修改：

Private Sub 确认_Click()
Dim stsql As String
If Len(新密码) > 0 Then
If 旧密码 = DLookup("密码", "用户密码表", "ID='" & 用户名 & "'") Then
        DoCmd.SetWarnings False         '屏蔽系统错误
        DoCmd.RunSQL "update 用户密码表 SET 密码 = '" & 新密码 & "' where ID='" & 用户名 & "'"
        DoCmd.SetWarnings True
        MsgBox "密码更改成功,欢迎使用本系统!", vbInformation
        DoCmd.Close acForm, "密码更新窗体"
Else
        MsgBox "操作有误，请重新输入!", vbInformation
        Me.旧密码 = ""
        Me.新密码 = ""
        Me.旧密码.SetFocus
End If
Else
 MsgBox "新密码为空，请重新输入!", vbInformation
 Me.新密码.SetFocus
End If
End Sub