主题：请狐爸帮忙看看这个代码

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If

每次我在“订单号”列录入的内容尽管不重复，亦都是弹出“此订单号已经存在！”，就更别说真正录入重复的内容能够进行阻止了。不知道是我哪出问题了，请狐爸帮忙看看这个代码。