主题：如何后台全局禁止重复数据 急急急

RT 我有个客户信息表 客户名称设置了禁止重复 用的是这段代码 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

我用的是录入窗口方式录入，但是同时我设置了只加载所有者=当前用户名的数据，当前用户名下是不能录入2个完全相同的用户名了 但是我换个用户后就可以录入了，这样其实整个表里面确实是存在了两个相同的用户了，问下高手 如何实现整个表达到不能录入相同数据的效果 并且提示呢？