Как сгенерировать автоматический сброс пользовательского идентификационного номера в следующем году

---

Я хочу сгенерировать пользовательский идентификационный номер, содержащий (текущий год-id) идентификационный номер при автоматическом сбросе следующего года (oledb)



например:
Год-ID
2019-1
2019-2
2019-3
....

2020-1
2020-2
....
2021-1
2021-2
2021-3
2021-4
...

Что я уже пробовал:

Private Sub referenceno1()
        cn.Open()
        cmd = New OleDb.OleDbCommand("select * from JOBCARDGENERATORTABLE", cn)
        cmd1 = New OleDb.OleDbCommand("select * from JOBCARDGENERATORTABLE", cn)
        cmd.Connection = cn
        Dim maxid As Object
        Dim strid As String
        Dim intid As Integer
        Dim NEWID As Integer = 1
        Dim MAXYEAR As Object
        Dim CURRENTYEAR As Integer = Date.Now.Year


        cmd.CommandText = "select max(JOBCARDNO) as maxid from JOBCARDGENERATORTABLE"
        cmd1.CommandText = "select max(YEAR) as MAXYEAR from JOBCARDGENERATORTABLE"

        maxid = cmd.ExecuteScalar
        MAXYEAR = cmd1.ExecuteScalar

        If maxid Is DBNull.Value Then
            intid = 1

        ElseIf CURRENTYEAR > MAXYEAR Then

            intid = 1

        ElseIf CURRENTYEAR = MAXYEAR And maxid > 1 Then
            strid = CType(maxid, String)
            intid = CType(strid, String)
            intid = intid + 1

        ElseIf CURRENTYEAR = MAXYEAR And maxid Is DBNull.Value Then
            strid = CType(maxid, String)
            intid = CType(strid, String)
            intid = intid + 1

        Else
            strid = CType(NEWID, String)
            intid = CType(strid, String)
            intid = NEWID + 1
        End If
        jobcardnotb.Text = intid
        REFERENCE = CURRENTYEAR & "-" & intid


        cn.Close()
        Return

    End Sub

---