求助自动编号问题

现在的代码是自动加一，但年份不能自动变化，我想改成到新一年时按新年份从00001开始，请问能实现吗？怎么改？

Private Sub Command29_Click()
On Error GoTo Err_Command29_Click
    Dim rst As Recordset, courseID As Long, TmpStr As String


    Set rst = CurrentDb.OpenRecordset("SELECT Ã÷ϸ.D-òé±àoÅ FROM Ã÷ϸ ORDER BY Ã÷ϸ.D-òé±àoÅ DESC;")
    
    If Not rst.EOF Then
        'èç1ûóDèÎoμǼ￡¬óÃ×îoóμÄêy×Ö￡«1×÷ÎaDÂμÄ¿Î3ì±àoÅ
        rst.MoveFirst
        If IsNull(Me![D-òé±àoÅ]) Then
            'èç1ûÏÖÔú′°ìåéÏûóD±àoží¼óèë
            courseID = rst!D-òé±àoÅ + 1
            Me![D-òé±àoÅ] = courseID
        Else
            'èç1ûòÑóD¿é′ó±àoží3öÏÖìáê¾
            MsgBox "ÄúûóDè¨ÏT2ù×÷￡¬" & Chr(13) & "2»Äü×Ô¶ˉDT¸Ä￡¡", vbOKOnly, "×￠òa"
        End If
    Else
        'èç1ûûóD¼Ç¼¾íóñ¾ÄêÄê·Y¡á1000000￡«1×÷±àoÅ
        TmpStr = Format(Date, "yyyy")
        courseID = Val(TmpStr) * 1000000 + 1
        Me![D-òé±àoÅ] = courseID
    End If


    rst.Close
    
Exit_Command29_Click:
    Exit Sub


Err_Command29_Click:
    MsgBox Err.Description
    Resume Exit_Command29_Click
    
End Sub