主题：为什么报“索引超出了数组界限”

请给位大侠看看这写代码有什么问题。

总是报“索引超出了数组界限”。

还有怎么样把这个赋值以及检索分来运算?

Dim dt As DataTable = DataTables("管理内客户")

Dim dr,dr1 As DataRow

For i As Integer = 0 To dt.DataRows.Count -1

    dr = dt.DataRows(i)

    dr1 = dt.Find("[车辆底盘号]  = '" & dr("车辆底盘号") & "'","里程 Desc" ,1) 

    If dr1 IsNot Nothing Then

        dr1.Delete

    End If

Next

代码就是想删除重复值，，可是不知道怎么写，只好用自己知道的find来做了。

可是不知道怎么样把赋值和检索分来。。