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