如何自动添加凭证号码？

Question

如何自动添加凭证号码？我现在在做一个凭证输入的界面，需要添加自动的凭证号码，我不知道该如何处理，下面是我的思路，请大家帮我看看！
Sub 新凭证号()
  On Error Resume Next
  Dim CNN As New ADODB.Connection
  Dim RST As New ADODB.Recordset
  Dim Stpath, SQL As String
  CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\凭证处理表.mdb"
  SQL = "select max(号) as 最大号 from flb "     这句是从表flb读出最大号码，但问题是这个号码在以后的过程中并没有自动加1呀，正确的代码应该是怎么样的？
  
  Range("H4") = RST.Fields("最大号")
  RST.Close
  CNN.Close
End Sub

Answer 1

select max(号)+1 as 最大号 from flb