Örneğinizi ekleyin ya da;
Elinizdeki mevcut şifre giriş formunu kopyalayın. Fark olarak buna 3 tane metin kutusu koyun
1. Eski Şifre ( kullanıcının buraya mevcut şifresini yazması gerekli ki gerçekten o olduğunu bilelim)
2. Yeni Şifre
3. Yeni Şifre Tekrarı ( 2.si ile aynı olup olmadığını kontrol edeceğiz. Şifresini yanlış girmemesi için son kontrol)
Tamam dediğinde ;
1. Eski şifresini doğru yazmış mı? Farklıysa uyarı verin
2. Yeni şifre ve eski şifre aynı mı? Aynıysa uyarı verin.
3. Yeni şifre ve yeni şifre tekrarı aynı mı? Farklıysa uyarı verin

Yukarıdaki uyarılardan geçerse kullanıcı şifresini ado ile kaydedebilirsiniz.
strSQL = "SELECT * FROM kullanıcılar "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[kullanıcıid]=" & Me.kullanıcı.Column(1)
.Fields("sifre")=me.yenisifre
.Update
End With