想从SQL外部数据源里“采购付款表”找出与存货档案当前记录相同的存货名称，并将里面单价和余额取值到存货档案中相对应列去，下面代码虽可正确执行，只是效率太慢，如何优化,请大师们帮忙指点下，谢谢。

发不上来，一直提示错误。

想从SQL外部数据源里“采购付款表”找出与存货档案当前记录相同的存货名称，并将里面单价和余额取值到存货档案中相对应列去，下面代码虽可正确执行，只是效率太慢，如何优化,请大师们帮忙指点下，谢谢。

Dim cmd As new  SQLCommand
cmd.cFONT-FAMILY: 宋体; mso-ascii-font-family: Verdana; mso-hansi-font-family: Verdana">鲜迪数据库"
For Each dr As DataRow In DataTables("存货档案").DataRows
    cmd.CommandText = "Select top 1 单价 F rom  {采购付款表}  Where 商品名称 = \'" & dr("存货名称") & "\' and 单价 is not null order by [_sortkey] desc "
    If cmd.CommandText IsNot Nothing
        dr("参考单价") = cmd.executescalar
    Else
        dr("参考单价") = 0
    End If   
    cmd.CommandText = "Select top 1 余额 F rom  {采购付款表}  Where 商品名称 = \'" & dr("存货名称") & "\' and 余额 is not null order by [_sortkey] desc "
    If cmd.CommandText IsNot Nothing
        dr("账面数量") = cmd.executescalar
    Else
        dr("账面数量") = 0
    End If  
Next

 一次性取出整个表，然后用find的方式，不要重复使用sqlcomman

前就一直试发不上来，以为我没权限发了，弄个压缩包来发。