How to generate custom id number auto reset at next year

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

provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
            datafile = filepathtb.Text
            connString = provider & datafile
            myConnection.ConnectionString = connString


            myConnection.Open()
            cmd = New OleDb.OleDbCommand("select * from JOBCARDGENERATORTABLE", myConnection)

            cmd.Connection = myConnection
            Dim maxid As Object
            Dim strid As String
            Dim intid As Integer
            Dim CURRENTYEAR As Integer = Date.Now.Year

            cmd.CommandText = "select max(JOBCARDNO) as maxid from JOBCARDGENERATORTABLE WHERE CURRENTYEAR = YEAR"
            cmd.Parameters.Add("@CURRENTYEAR", OleDbType.Numeric).Value = CURRENTYEAR

            maxid = cmd.ExecuteScalar

            If maxid Is DBNull.Value Then
                intid = 1
            Else
                strid = CType(maxid, String)
                intid = CType(strid, String)
                intid = intid + 1

            End If


            jobcardnotb.Text = intid
            yeartb.Text = "J-" & CURRENTYEAR & "-" & intid

            myConnection.Close()
            Return
        End If