求助代码有问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name '定义一个列名的名称
    Case "姓名"         '确定一个列名值
        Dim dr As DataRow   '定义一个变量
        dr = e.DataTable.Find("姓名 = '" & e.NewValue & "'") '查找一个新姓名的值
        If dr IsNot Nothing Then              '如果找到这个员工
            MessageBox.Show("此员工已存在!请查询.")
            e.Cancel = True            '否则进行输入
        End If
    Case "身份证号码"
        If e.NewValue IsNot Nothing Then
            If ValidPIN(e.NewValue) = False Then
                MessageBox.show("此身份证号码有误!请核对后重新输入.")
                e.cancel = True
            Else
                Dim hm As DataRow
                hm =e.DataTable.Find("身份证号码 = '" & e.NewValue & "'")
                If hm IsNot Nothing Then
                    MessageBox.show("此身份证号码已存在!请核对后重新输入.")
                    e.Cancel = True
                End If
            End If
        End If
End Select

主题：求助代码有问题