求前辈指点 VB编写数据库更改密码的问题

这是一个登陆以后修改本账号密码的程序 本账号用UserNow.Id来表示的
有三个文本框 分别是原密码 新密码 新密码确认
这个程序别的地方似乎没问题 因为当原密码错误或者没有输入新旧密码时警告都会正确弹出
当别的地方都正确时点确定 提示修改成功 可是在数据库中密码却没有改变
也就是说修改并没有写入数据库。不知道是什么原因 希望知道的朋友指导指导我 谢谢啦

Private Sub CmdModifyOK_Click()
Dim ChgUser As New ADODB.Recordset
Dim DBStr As String

If Me.TextModifyOld.Text = "" Then
        MsgBox "请输入原密码！"
    Exit Sub
End If

If Me.TextModifyNew1.Text = "" Then
    MsgBox "新密码不能为空！"
    Exit Sub
End If

If Me.TextModifyNew2.Text = "" Then
    MsgBox "密码确认不能为空！"
    Exit Sub
End If

If Me.TextModifyNew1.Text <> Me.TextModifyNew2.Text Then
    MsgBox "两次输入新密码不一致！"
    Exit Sub
End If



DBStr = "select * from UserInfo where UserID='"
DBStr = DBStr & Replace(UserNow.ID, "", "") & "'"

ChgUser.Open DBStr, DBCnn, adOpenStatic, adLockBatchOptimistic

ChgUser.MoveFirst

If Trim(Me.TextModifyOld.Text) = ChgUser.Fields("UserPwd").Value Then
ChgUser.Fields("UserPwd").Value = Me.TextModifyNew1.Text


Else
MsgBox "原密码输入错误，修改失败！"
End If

ChgUser.Update
ChgUser.Close

MsgBox "修改成功！"

End Sub