If Not iMaxZeile > 0 Then MsgBox "RohrbezirksnetzNummer nicht vorhanden": _
  Exit Sub

Set rst = db.OpenRecordset("SELECT * FROM O_Netz_RNBZ WHERE RNBZ =  '" & _
  Rohrnetzbezirk & "'", dbOpenDynaset)

booIstDrin as Boolean
booIstDrin = False
x as Integer 'Wenn dir der Wert nicht reicht mach Long aus Integer
 
For Each x In rst.Fields(RNBZ)
  If x.Name = txtEingabe.Text Then booIstDrin = True
next x
If booIstDrin = False Then MsgBox "Nicht vorhanden": Exit Sub

Do Until rst.EOF
    rst.MoveNext
Loop
intAnzahl = rst.RecordCount
If intAnzahl = 0 Then MsgBox "Ist nicht vorhanden": Exit Sub

Gr??e

bascaro