Uyarı konusunda haklısınız call connection_open konusunu nereye yapıcam anlamadım. Peki gariklerde neden hata veriyor ilk dört grafiği gösteriyor sonra hata alıyorum daha sonra kapatıp  açıyorum ilk dört grafikte de aynı hatayı alıyorum.

Mesajı duzeltirmi siniz? Ne yazdığı anlaşılmıyor?

Giriş formu açık değil anaform açık oluyor.

Ilk mesajınızda yazdığınız kod var ya orada 2 defa connection open kullanmışsınız ilkinde verileri almak için 2.de ise şifreyi değiştirmek için
2 cinnetinden sonra da aynı recordseti kullanmışsınız rs.open burada kullandığınız rs kapatilmadan yeniden açılmaya çalışılmış, önce rs.close ile ilk açtığınız rs kapatılmalı

---

Her konuyu kendi altında sorun, karmaşaya neden oluyor.

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

Dediğinizi kod içerisine yazdım ama yanlış yerede yazmış olabilirim sonuç yine aynı yanlış şifre

---

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
MsgBox "Şifre Başarılı Şekilde Değiştirildi"
rs.Update 0, Me.TextBox2
rs.Update
rs.Close
conn.Close
End Sub