merhaba, aşağıda nerde hata yapıyorum. şifreyi doğru girmeme rağmen hatalı şifre girdiniz diye uyarı vermektedir.
dlookup da iki sutunda kısa metin olursa hata vermektedir.

Private Sub giris1_Click()





    If IsNull(Me.kullanicilar1) Or Me.kullanicilar1 = "" Then

            MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"

            Me.kullanicilar1.SetFocus

        Exit Sub

    End If

    If Me.parola1.Value = Dlookup ("PAROLA", "T_CALISANLAR", "[NO]=" & Me.kullanicilar1.Value) Then



         ID = Me.kullanicilar1.Value

       

        Me.Form.Visible = False

        DoCmd.OpenForm "F_AnaSayfa", acNormal



        Else

        MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgilendirme Penceresi"

        Me.parola1.SetFocus

    End If

    intLogonAttempts = intLogonAttempts + 1

    If intLogonAttempts > 2 Then

        MsgBox "KAPATILACAK.", vbCritical, "Bilgilendirme Penceresi"

        Application.Quit

    End If

End Sub