主题：[求助]需要救命

我有一个数据表，其中有3000只股piao，每只股piao每天都有数据，现在我需要删除有可能的某piao某天重复数据，现在已经有2年的数据了，

Dim bTbl As New GroupTableBuilder( "特定股piao加仓股",DataTables("特大单加仓股"))
Dim outTbl As Table
bTbl.Groups.AddDef("股piao代码")
bTbl.Groups.AddDef("交易日期",DateGroupEnum.None,"交易日期")
' bTbl.Filter="[股piao代码] = " & tcode(i)'  ORDER BY 交易日期 Desc"
bTbl.Build
outTbl =Tables("特定股piao加仓股") 'bTbl.Build(True) '生成一个DataTable
If outTbl.Rows.Count>0 Then
    For Each dr As Row In outTbl.Rows
        Output.Show("正在清理【特大单加仓股】 代码【" & dr("股piao代码") & "】 日期【" & dr("交易日期") & "】")
        DataTables("特大单加仓股").DeleteFor("[股piao代码]=" & dr("股piao代码") & " And [交易日期]= #" & dr("交易日期") & "#" )
    Next
End If

Return 1

问题是1分多钟才能处理1只股piao，这样我要2天，才能完成，请问各位大侠，还有快一点的方法吗