主题：[求助] 导入数据量 过大 卡死

 Dim dr As DataRow = DataTables("商品基本信息").Find("品名及规格 = '" & bh & "'")

        If dr Is Nothing Then '如果不存在同编号的订单

            dr =  DataTables("商品基本信息").AddNew()

        End If

就这几句话足够卡死你了，建议你先建立以个过渡表，完全导入，用SQL语句去重复，然后再把这些数据添加进去就好了。