主题：禁止输入重复

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

   只是对已加载的有效，怎样从后台找到重复值并禁止输入？