主题：帮助中"动态错误提示"的代码改编,请教老师们

If e.Sender.Text.Length >= 6 Then
    Dim dr As DataRow
    Dim cpmc As String = e.Sender.Text
    DataTables("商品资料").LoadFilter=" [商品编号] = '" & cpmc & "'"
    DataTables("商品资料").Load
    dr = DataTables("商品资料").Find("[商品编号] = '" & cpmc & "' ")
    If dr IsNot Nothing Then

    e.Sender.Error = "系统中存在相同的编号!"  
   Else
    e.Sender.Error = ""
   End If

Else

    MessageBox.Show("商品编号不能少于6位数!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True

End If

在窗口文本控件"Validating"属性输入上面的代码进行判断商品资料中是否存在相同的编号跟商品编号输入的长度,以上代码还没实验过,不知道对否,根据帮助文件中的"动态错误提示"进行改编的,先请教下老师代码错误与否