Dim sFeld As String
 
sFeld = Chr$(1)
While Not rec4.Eof
  If rec("Feld") = sFeld Then
    MsgBox "Übereinstimmung mit vorigem Feld!"
  End If
  sFeld = rec("Feld")
  rec4.MoveNext
Wend

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de