Çok teşekkürler, şifre sorğulamaları yaptım ama sadece yeni şifreyi tabloya update edecek komutları tam yaptıramadım, yardımcı olabilirmisiniz.

Sub YeniŞifreupdate()

Dim rstkayit As String

If Not IsNull(rstkayit![KULLANICIŞİFRESİ]) > 0 Then
Set rstkayit = CurrentDb.OpenRecordset("select * from KULLANICILAR where ID=" + str(Me.ID.Value) + " ;")
rstkayit.Edit
rstkayit![KULLANICIŞİFRESİ] = LCase$(strKULLANICIŞİFRESİ)
rstkayit.Update
rstkayit.Close
End If

End Sub
Private Sub Command5_Click()
If IsNull(Me.Kullanıcı) Or Me.Kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"
Me.Kullanıcı.SetFocus
Exit Sub
End If
If Me.Şifre.Value = Dlookup ("KULLANICIŞİFRESİ", "KULLANICILAR", "[ID]=" & Me.Kullanıcı.Value) Then

ID = Me.Kullanıcı.Value
YeniŞifretekrarı
Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgilendirme Penceresi"

End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "KAPATILACAK.", vbCritical, "Bilgilendirme Penceresi"
Application.Quit
End If
End Sub
Private Function YeniŞifretekrarı()
If [Yenişifre] = [Şifre] Then
MsgBox "Yenişifre ile Eskişifre Farklı olmalıdır"
DoCmd.GoToControl "Yenişifre"
Else
If IsNull([Yenişifre]) Or IsNull([Şifretekrarı]) Then
MsgBox "Yeni şifre ve Yeni şifre tekrarını girmelisiniz."
DoCmd.GoToControl "Yenişifre"
Else
If [Yenişifre] <> [Şifretekrarı] Then
MsgBox "Yenişifre ile Yenişifre Tekrarı aynı olmalıdır"
DoCmd.GoToControl "Yenişifre"
Else
If [Yenişifre] = [Şifretekrarı] Then

MsgBox "Şifreniz değiştirilmiştir"
DoCmd.OpenForm "SİFREGİRİŞ"
DoCmd.Close acForm, "SİFREDEĞİŞTİRME"
YeniŞifreupdate
End If
End If
End If
End If
End Function