多客户端版软件中  当多个客户端同时开户时，怎样避免生成的用户编号重复
以下是客户端新开户时，生成新的用户编号的代码，大家有什么建议。
    Dim RsJL As New AdoDB.Recordset,sql as string 

   sql = ” select max(用户编号) as  最大编号  from yhxx   ”
   RsJL.Open sql, Conn, adOpenKeyset, adLockPessimistic
   
   If RsJL.RecordCount = 0 Then
            BH = 1  
  Else
           If IsNull(RsJL.Fields(“最大编号”)) = True Then
                  BH = 1
           Else
                 BH = RsJL.Fields(“最大编号”) + 1
           End If
   End If
如果三个客户端软件同时开户，同时通过以上代码得到了一个编号为1，那保存后岂不是有3个编号为1的用户？

怎么办呢，谢谢大家？