Textfeld mit Tabellendatensatz vergleichen

[Holzkopf80]

Hallo Foummitglieder,
Das ist mein erster Beitrag in diesem Forum.
Nun hab ich schon das erste Problem.
Ich habe ein Formular, mit diesem möchte ich überprüfen, ob in der Tabelle T_Rechnung in der Spalte ANr der Gleiche wert drinn steht wie in der Textbox des Formulars.

Bin echt am verzweifeln


Hier hab ich mal den Code aufgeschrieben.
Ich habe die vermutung, das nicht die ganze Tabelle durchsucht wird.

Gruß Holzkopf

Private Sub CheckRechnungsnummer()

Dim DBS As DAO.Database
Dim Rs As DAO.Recordset
Dim krit As Long


Set DBS = Application.CurrentDb
Set Rs = DBS.OpenRecordset("T_Rechnung", dbOpenDynaset)
krit = Forms!Drucken_Frm!Auftragsnummer
'Rs.FindFirst "ANr = krit"
'MsgBox krit


If Rs!Anr = krit Then
Rechnung = True
MsgBox krit & "Rechnung = False gibt es schon"
Else
Rechnung = False
MsgBox krit & "Rechnung=True"
End If
MsgBox krit
Rs.Close
Set Rs = Nothing
Set DBS = Nothing
Exit Sub

End Sub