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当中就可以，或者是加载时间短的

不是SQL类型的

是ACCES外部数据库 要怎么写啊

大佬这样不行啊，我照您说的写的代码，我的外部数据表加载的默认行数，可是表A中数据根本不更新，也就是说，如果没有加载这些数据，他就不更新，如果全部加载就又成原来的了，如果只填写外部链接，而不加载外部表的话，会提示我根本没有这个表

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("云数据").SqlFind("[商品条码] = \'" & 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
End If