主题：请诸位前辈大侠帮我看一下代码错在哪里？

If nlist.Count > 2

    Dim i As Integer

    For  = 1 To nlist.Count - 1

        If nlist(0)("name") = nlist(i)("name") Then

            nlist.RemoveAt(i)

        End If

    Next

End If

If nlist.Count > 2

    Dim i As Integer

    For  i= 1 To nlist.Count - 1

        If nlist(i)("name") = nlist(i+1)("name") Then

            nlist.RemoveAt(i)

        End If

    Next

End If