Dim sPrev As String
 
Set oRs = oDB.OpenRecordset("SELECT * FROM Tabelle ORDER BY TelNr")
Do 
  If Len(sPrev) = 0 Then
    sPrev = oRs.Fields("TelNr")
  Else
    If oRs.Fields("TelNr") = sPrev Then
      Debug.Print "Doppelte Telefonnummer gefunden..."
    Else
      sPrev = oRs.Fields("TelNr")
    End If
  End If
  oRs.MoveNext
Loop Until oRs.Eof

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de