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

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

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

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

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