Private Function lvw_ItemExists(oListView As ListView, _
  ByVal sText As String) As ListItem
 
  Dim oItem As ListItem
  Dim sData() As String
  Dim i As Integer
  Dim nIndex As Long
  Dim bExists As Boolean
 
  bExists = False
 
  sData = Split(sText, vbTab)
  With oListView
    nIndex = 1
    Do
      Set oItem = .FindItem(sData(0), , nIndex)
      If oItem Is Nothing Then Exit Do
 
      ' 1. Spalte: Treffer
      ' jetzt alle weiteren Spalten vergleichen
      bExists = True
      For i = 1 To .ColumnHeaders.Count - 1
        If oItem.SubItems(i) <> sData(i) Then
          bExists = False: Exit For
        End If
      Next i
      nIndex = oItem.Index + 1
    Loop Until bExists Or nIndex > .ListItems.Count
  End With
 
  If bExists Then
    Set lvw_ItemExists = oItem
  End If
End Function

Dim sName As String
Dim sAnschrift As String
Dim sTelefon As String
Dim oItem As ListItem
 
sName = "Dieter"
sAnschrift = "Steinach"
sTelefon = "706246"
 
' Prüfen, ob Eintrag bereits existiert
Set oItem = lvw_ItemExists(ListView1, sName & vbTab & sAnschrift & vbTab & _
  sTelefon)
If oItem Is Nothing Then
  ' Eintrag existsiert noch nicht, also hinzufügen
  Set oItem = ListView1.ListItems.Add(, , sName)
  oItem.SubItems(1) = sAnschrift
  oItem.SubItems(2) = sTelefon
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de