verificar duplicados en un listview

[pamelacr]

buenas tengo un programa en visual basic y lo que quiero es que a la hora de insertar un dato en un listview este lo compare si ya se encuentra en el listview me tire un mensaje indicándolo de lo contrario nada mas lo inserta en el listview.

lo que he hecho es esto pero me surgen errores: como en el finditem y en el private donde se llama al duplicado.

Código:

Function Duplicado(ByVal dato As String) As Boolean
        Duplicado = True
        With lstDatos
            On Error Resume Next
            If LCase(lstDatos.FindItem(dato)) <> LCase(dato) Then
                Duplicado = False
            End If
            Err.Clear()
        End With
    End Function

 Private Sub ValidarDatos()
        Try
 If txtCedula.Text.Trim.Length = 0 Then
                Throw New Exception("Cedula vacia")
                Exit Sub
            End If
            'si la funcion devuelve false, es porque no se encontro el elemento por lo tanto no esta duplicado'
            If Duplicado(Text(txtCedula)) = False Then
                (lstDatos.Items.Add, , txtCedula)
            Else
                'elemento repetido'
                Throw New Exception("La cedula ya existe")
            End If

        Catch ex As Exception
            Throw ex
        End Try
    End Sub