Login Sayac Kodu İle İlgili Sorun

Değerli Üstadlarım Benim Login Sayfasındaki Sayaç kodum çalışmıyor bir türlü bulamadım yardımcı olursanız çok sevinirim Acces Ailesinde olmaktan çok mutluyum.....

aşağıdaki gibi dener misiniz?

Private Sub BtnTamam_Click()

kullaniciadiD = Me.Kullanici

yetkiD = Kullanici.Column(3)

If Me.Sifre = Me.Kullanici.Column(2) Then

    MsgBox "Programa Hoşgeldiniz"

    Form_Login.Visible = False

    DoCmd.OpenForm "TblKullanicigiris Sorgu"

Else

    If sayac = 2 Then

        MsgBox "Hatalı Giriş Sebebiyle Program Kapatılacaktır" & Chr(13) & "UYARI"

        DoCmd.Quit

    Else

        sayac = sayac + 1

        MsgBox ("Hatalı Giriş Yaptınız Lütfen Geçerli bir şifre Giriniz" & Chr(13) & "DİKKAT")

        Me.Sifre.SetFocus

    End If

End If

End Sub

Olumsuz kodun yazılış sırasında bir farklılık var erkenden kapanış uyarısı veriyor bu şekilde

kaç defa uyaracaktı

3 kez

benim yazdığımda kaç kez uyarıyor?
If sayac = 2 Then buradaki 2 değerini değiştirerek dener misiniz?