关于数据库表销定的问题

要在数据库的表中添加一个新的项目,它的识别就是单号

先用
Rs.Open StrSQL, cnn, 1, 1, 1          查原来的表中是否有该单号
如果没有再用
Rs.Open StrSQL, cnn, 1, 2, 1         
进行数据记录
之后再用数据库结束来处理事件
cnn.CommitTrans                            '变动结束

因为有些单据较大，最长的可能要用到约5S时间
现在的问题是：
如果在这个过程用了自动取出单号，而有两台或多台机，同时在使用这个程序时，会产生同一个单号
而录入的过程中也会时间较长导致两张单输入时重合了

如何锁定才会适合这种情况？
谢谢

不可能的吧，按你的说明单号是主键，不会生成两个相同的单号的。