主题：[原创]SQLCommand

想从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