主题：[求助]sqlfind查询赋值慢

老师，用以下代码查询“进价（500行）”和“报表（400行）”表最近一次关联行赋值到“产品表（200）”，代码执行慢的很，

For Each dr As DataRow In DataTables("产品").DataRows
    If dr IsNot Nothing Then
        Dim dr1 As DataRow
        dr1 = DataTables("进价").SQLFind("合成名称 = '" & dr("合成名称") & "'", "进货日期 Desc")
        If dr1 IsNot Nothing Then
            dr("最新进价_进货日期") = dr1("进货日期")
            dr("最新进价_进价") = dr1("进价")
        End If
        Dim dr2 As DataRow
        dr2 = DataTables("报价").SQLFind("合成名称 = '" & dr("合成名称") & "'", "报价日期 Desc")
        If dr1 IsNot Nothing Then
            dr("最新报价_报价日期") = dr2("报价日期")
            dr("最新报价_报价") = dr2("报价")
        End If
    End If
Next

麻烦问一下，可否有替代思路或者优化代码？