主题：请问：数据表合并后，如果出现多合并了一次或几次，如何解决，即保证重复行删除

'提示选择，判断是否合并

Dim Result As DialogResult
Result = MessageBox.Show("警告:本操作仅限于数值累计,执行后将累计数值!" & vbcrlf & "单击'是'累计,单击'否'退出","提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "Access文件|*.mdb" '设置筛选器
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "C:\foxtable\Trial\坯布管理\Reports\坯布信息" '指定要导入的表
    ip.NewTableName ="C:\foxtable\Trial\坯布管理\Reports\坯布信息1" '导入后的表名
    ip.Import()
End If