If döngüsü içinde kapatmışsınız ama dongu dışın da yok
Döngüler de sade hata durumu icin
ilk if şifre kontrolü için şifre doğru değilse kapatıyor doğruysa işlem yapmıyor
2. If yeni şifre için 2si de ayni mi kontrolü yapıyor, aynı değilse kapatıyor ama aynıysa birşey yapmıyor
If Me.TextBox2 <> Me.TextBox3 Then
MsgBox "Şifre eşleşmiyor."
rs.Close
conn.Close

Exit Sub
End If
RS.CLOSE
Call connection_open
sql2 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql2, conn, adOpenKeyset, adLockPessimistic

---

Uygun bir zamanda tekrar denerim