VB+SQL 2000 事务问题

大家好，我现在有一个VB+SQL2000的处理
在VB里面加了事务但是，没能防止脏读。处理过程如下：
Call modGlobal.AdoLibrary.Begin ’开始事务’读取最大ID，然后处理数据
Call modGlobal.PUTWrkForwarding(txtWarehouseCode.Text _
                    , Trim(datReqDate.Text), tmpSCM, tmpOrder, Printflg, strForwardingTime)
                    
’最大ID+1更新
CountCode = modGlobal.SetNextCount       
                
Call modGlobal.AdoLibrary.Commit’提交事务现在的问题是，在【’读取最大ID，然后处理数据】 和 【’最大ID+1更新】之间，会发生有别的机器，同时读取最大ID，导致两台机器读取到的最大ID是一样的请问：VB的事务，能防止数据库的并发读取吗？
      如果不能有没有其他的方法防止数据库并发读取？
（把读取ID和ID+1的更新放到一个存储过程里面然后加事务应该可以，但是想了解一下VB里面能不能控制SQL2000的读取）