主题：网络环境下的复杂编号,是还有别的什么设置吗?不停的循环停止不了?

Do

    Key = cmd1.ExecuteScalar() '从后台获得顺序号

    cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = '" & pf & "'"

    If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号

        Exit Do '更新成功则退出循环

    End If

Loop