主题：[求助]数据检索的问题

数据库是外部数据源(Access)
我在表A中

DataColChanged事件中如下代码:

Select Case e.DataCol.Name
    Case "条码编号"
        If e.DataRow.IsNull("条码编号") Then
            e.DataRow("防伪编码") = Nothing
        Else
            Dim dr As DataRow
            dr = DataTables("SeurityCode").Find("[Code] = '" & e.DataRow("条码编号") & "'")
            If dr IsNot Nothing Then
                e.DataRow("防伪编码") = dr("Security")
                dr("启用") = True
            End If
        End If
End Select

我的问题是:如果全部加载"SeurityCode"表数据,有48万条数据,全部加载的话就有些慢了,再每次重置表A的条码编号列获得SeurityCode表的防伪编码,感觉耗时更多.

有没有提高执行速度的代码或方法?