Şifre Değiştirme

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

Id alanı sayısalsa başa ve sona eklenen tek tırnaklar silinmeli

(24/08/2020, 15:54)merttr07 yazdı: "select [ŞİFRE] from personel where [ID]='" & user & "'"

yerine

"select [ŞİFRE] from personel where [ID]=" & user 

ile değiştirip dener misiniz

(24/08/2020, 16:03)berduş yazdı: Id alanı sayısalsa başa ve sona eklenen tek tırnaklar silinmeli

(24/08/2020, 15:54)merttr07 yazdı:   "select [ŞİFRE] from personel where [ID]='" & user & "'"

yerine

"select [ŞİFRE] from personel where [ID]=" & user 

ile değiştirip dener misiniz

Id kullanıcı adı sorgu ifadesi eksik diye hata verdi

Düzeltemedim bir türlü.

çalışmanızın ilgili kısmını ekleyin inceleyelim.
mümkün olduğunca konularınıza çalışmanızın ilgli kısmını da ekleyin

atamıyorum boyut yetmiyor