主题：海量数据加载问题

If e.DataCol.Name = "商品条码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("商品名称") = Nothing
        e.DataRow("规格") = Nothing
        e.DataRow("单位") = Nothing
        e.DataRow("进价") = Nothing
        e.DataRow("售价") = Nothing
        e.DataRow("类别编码") = Nothing
        e.DataRow("产地") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("云数据").Find("[商品条码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("商品名称") = dr("商品名称")
            e.DataRow("规格") = dr("规格")
            e.DataRow("单位") = dr("单位")
            e.DataRow("进价") = dr("进价")
            e.DataRow("售价") = dr("售价")
            e.DataRow("类别编码") = dr("类别编码")
            e.DataRow("产地") = dr("产地")
        End If
    End If

我有一个数据表叫做云数据，里面是百万级别的数据量，有120万条数据，我只想在表A的商品条码列，对应在数据库中找到对应值，来更新 规格 单位品名什么的，例如上面的代码，但是由于云数据表非常庞大，加载的时间特别长，用什么方法，可以不用加载这个表或者在后台加载这个数据表，只在里面找到对应值然后引用的表A当中就可以，或者是加载时间短的