主题：如何给导入语句加上判断是否内容已经存在的操作？求个拓展功能,就是导入前能用XLS文件的标题和数据表的标题做一个对比,一致时才开始导入

 With Tables("公司")
    .Fill("SELECT  公司编码, 公司名称 ,营业执照名称, 楼层 , 单元,  联系人, 联系电话, 办公电话 , 传真电话 ,  备注  From {公司}","YLLF",True)
    .Sort = "公司编码 DESC"
    .ListMode = True
    .AutoSizeCols()
   ' .SetColVisibleWidth("公司编码|60|公司名称|200|营业执照名称|200|备注|200|楼层|45|单元|45|联系人|100|联系电话|100|办公电话|100|传真电话|100")
End With

'导入
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 0 To Sheet.Cols.Count -1
        If CurrentTable.Cols.Contains( Sheet(0,i).Value) = False Then
            MessageBox.Show("目标文件不含【" & Sheet(0,i).Value & "】列,请修改与目标文件一致!", "导入错误提示")
            Return
        End If
    Next
    For r As Integer = 1 To Sheet.Rows.Count - 1
        'Dim dr As Row = CurrentTable.AddNew()
         Dim dr As Row=   Tables("公司").AddNew() '增加一行
        For c As Integer = 0 To Sheet.Cols.Count - 1
            dr(Sheet(0,c).Value) = Sheet(r,c).Value
            Tables("公司").Current.Save '保存
        Next
    Next
End If
我写的这个导入XLS文件，没有识别重复内容的判断
应该怎么加呢？