Soru Access verritabanında kullanıcı şifre değişikliği?

[s.savas]

Merhaba arkadaşlar.
Access veritabanına erişim için sn halit hocanın parola giriş çalışmasını uyarlamaya çalışıyorum
parola giriş
Şifre değişikliği işlemini başaramadım.

Private Sub CommandButton2_Click()

If ComboBox1.Text = "" Then
MsgBox "Kullanıcı adını boş geçemezsiniz."
Exit Sub
End If
If TextBox1.Text = "" Then
MsgBox "eski şifreyi boş geçemezsiniz."
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox "yeni şifreyi boş geçemezsiniz"
Exit Sub
End If
If TextBox3.Text = "" Then
MsgBox "ŞİFRE TEKRARINI BOŞ GEÇEMEZSİNİZ."
Exit Sub
End If

If TextBox2.Text <> TextBox3.Text Then
MsgBox "Yeni Şifreleriniz aynı olmalı."
Exit Sub
End If

Set con = CreateObject("adodb.connection")
#If VBA7 And Win64 Then
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\REHBER.mdb"
#Else
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\REHBER.mdb"
#End If

kullanici = Me.ComboBox1.Value
Set rs = con.Execute("select * from logindata where kullanici='" & ComboBox1.Value & "'")
If TextBox1.Text = rs("sifre") Then
MsgBox "Yanlış şifre", vbInformation, "........."
End If
Exit Sub

rs.Open "select * from logindata where user_ID ", baglan, 1, 2

If rs.RecordCount > 0 Then
rs("sifre") = TextBox2.Value

rs.Update
    MsgBox ComboBox1 & " şifre başarı ile güncellendi.", , "........"
End If
    rs.Close

End Sub