Thảo luận Cần code đổi mật khẩu trong vb.net csdl access

Mình đang đy dần vào bước hoàn thiện đồ án. Nhưng vẫn còn vấn đề này ko code được.
Ai có cho mình xin với

Mã:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim count As Integer = db.doCount(" SELECT count(TenDN) from DANGNHAP where MatKhau = '" & Me.txtMatKhauMoi.Text & "'")
If Me.txtMKCu.Text = "" Or count = 0 Then
MsgBox("Mật khẩu hiện tại không đúng")
ElseIf Me.txtMatKhauMoi.Text = "" Then
MsgBox("Nhập mật khẩu mới")
ElseIf txtNhapLai.Text = "" Then
MsgBox("Nhập lại mật khẩu mới")
ElseIf txtMatKhauMoi.Text <> txtNhapLai.Text Then
MsgBox("Mật khẩu không giống nhau")
Else
Dim str As String = "Update DANGNHAP Set MatKhau = '" + Me.txtMatKhauMoi.Text + "'"
If db.doSQLDK(str) Then
MsgBox("Cập nhật thành công")
End If
End If
End Sub
End Class

Sao đổi mk được có 1 lần >.<
ID: admin pass:admin
đổi mk lần 1 : 123 thông báo cập nhật thành công. CSDL trong access cũng đổi thành 123 rồi.
xong đăng xuất ra đăng nhập lại ngon lành
ID: admin pass: 123
vào đổi lại mk lần 2: nhập pass cũ 123 là thông báo mật khẩu hiện tại không đúng
Cái này bị gì vậy

Mã:

Dim count As Integer = db.doCount(" SELECT count(TenDN) from DANGNHAP where MatKhau = '" & Me.txtMatKhauMoi.Text & "'")

Cái này không cần xét TenDN à?
nên Đóng CSDL trước khi thao tác

ko có :v

là sao. cái này nó kiểm tra tên đn rồi mà
Dim count As Integer = db.doCount(" SELECT count(TenDN) from DANGNHAP


Cho mình code luôn đy ><

ý là đóng access trước khi thao tác

Mã:

    Dim count As Integer = db.doCount(" SELECT count(TenDN) from DANGNHAP where  Trim(MatKhau) = '" & Me.txtMatKhauMoi.Text & "'")
[COLOR=#ff0000]        If Me.txtMKCu.Text = "" Or count = 0 Then[/COLOR]
[COLOR=#ff0000]            MsgBox("Mật khẩu hiện tại không đúng")[/COLOR]
        ElseIf Me.txtMatKhauMoi.Text = "" Then
            MsgBox("Nhập mật khẩu mới")
        ElseIf txtNhapLai.Text = "" Then
            MsgBox("Nhập lại mật khẩu mới")
        ElseIf txtMatKhauMoi.Text <> txtNhapLai.Text Then
            MsgBox("Mật khẩu không giống nhau")
        Else
            Dim str As String = "Update DANGNHAP Set MatKhau ='" + Me.txtMatKhauMoi.Text + "'"
            If db.doSQLDK(str) Then
                MsgBox("Cập nhật thành công")
            End If
        End If
    End Sub

Coi lại dùm mình đoạn này với ><
vì nếu mình nhập mỗi mật khẩu hiện tại vào thỳ nó toàn báo là mk hiện tại không đúng ><
Mình có 1 form đổi mật khẩu
mk hiện tại
mk mới
nhập lại

csdl access thỳ có 1 table dangnhap có 2 thuộc tính là TenDN với MatKhau

Mong sớm nhận được giúp đỡ

nó bị lỗi đoạn này nè
If Me.txtMKCu.Text = "" Or count = 0 Then
MsgBox("Mật khẩu hiện tại không đúng")

Mình gởi rồi đó >.<
thứ 6 này là thy rồi
mà ai có kinh nghiệm gì trong thy mấy môn đồ án kiểu thuyết trình sẽ chia với :v

ủa ><
gởi vào mail hongoctrien@2mit.org rồi mà

--- Nhập chung bài viết, 17 Tháng mười hai 2013 ---

Mình có gởi vào mail hongoctrien@2mit.org rồi mà ><
Mình có tải lên mf ><
https://www.mediafire.com/?8xggz8z6rl39r78

ộc >.<
giúp mình nhanh với thứ 6 tuần này >.<