Kapatmışım zaten yanlış mı anladım yoksa

---

(24/08/2020, 15:54)merttr07 yazdı: User formda oluşturduğum şifre değiştirme formunda hep hata alıyorum. kodlar şöyle 
Şifre hatalı diye hata alıyorum.
Private Sub Image4_Click()

user = girisform.TextBox1.Text
Call connection_open
sql1 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic

If Me.TextBox1 <> rs(0) Then
MsgBox "Yanlış Şifre."
rs.Close
conn.Close

Exit Sub
End If

If Me.TextBox2 <> Me.TextBox3 Then
MsgBox "Şifre eşleşmiyor."
rs.Close
conn.Close

Exit Sub
End If

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

rs.Update 0, Me.TextBox2
rs.Update
rs.Close
conn.Close
End Sub

Buradan bahsediyorsanız hepsinde hapatmışım