主题：关于导入数据的问题

在表的datacolchanging事件中设置
 
If e.DataCol.Name = "证书编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("证书编号= '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        If   MessageBox.Show( e.NewValue & "已经存在!终止导入?"," 提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
             e.Cancel = True
         End If
        
       End If
End If

保证表不会导入证书编号重复的行。
现在的问题是这样的，比如我导入有一百行的数据表，然后再把这个表重复导入，这个时候就回提示有重复，我确认以后提示第二条重复，再确认，然后第三条重复，如何在第一条重复提示的时候我就能退出导入，回去修改我的EXCEL文件去
请教高手指点

首先感谢sloyy 给予的参考代码，该问题已经解决，现在有个新的问题，就是使用填充方法剔除重复数据，如何才能知道都那些数据重复了？ 采用我上面给出的代码可以知道那些重复了，但是遇到大量重复的时候没有办法退出。使用临时表中介，可是又不知道那些数据重复了，请高手指教一下，如何既能知道那些数据重复了，又能决定是否继续导入不重复的数据