哪位大师可以帮忙看下下面代码如何更改成按每天日期进行新的编号，如当日是：2023-10-12-RZ0001，第二日则是：2023-10-13-RZ0001，2023-10-13-RZ0002

Private Sub zdbh() '自动编号+1
'自动编号~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call OpenConn
SQL = "select 编号 from 施工日志表 ORDER BY 编号"
rs.Open SQL, cn, 1, 1
  If rs.RecordCount > 0 Then
     rs.MoveLast
     Text1(0).Text = Date & "-RZ" & Format(Val(Right(rs.Fields("编号"), 4) + 1), "0000")
  Else
     Text1(0).Text = Date & "-RZ0001"
  End If
Call CloseConn
End Sub

大师，代码运行不了啊！
SQL = "select 编号 from 施工日志表 where 编号 like " & Date & " -RZ0001 ORDER BY 编号 "

大师啊，现在代码是可以运行了，但是职能从0001增加到0002，后面就一直是这个编号了！不能一直往上加了吗？

谢谢大师这下可以了运行了