如何高效核对工作表与数据库中的信息？

mansohu

经常需要核对工作表中的数据和数据库中的数据是否一致（按ID字段对应关系），因为有大量条目需要核对，请问用什么思路效率比较高。
我现在是
For each Rw in activesheet.usedrange.entirerow.rows
    set Rst=按ID号Sql出单条记录
    for each Col in activesheet.usedrange.entirecolumn.columns
        if Rst(Col.end(xlup))<>intersect(Rw,Col) then
            ‘根据需要操作
        end if
    next Col
    ‘根据需要Rst.update
next Rw
我的思路比较简单，但效率很低，求高效的思路！谢谢