Автогенерация буквенно-цифрового идентификатора

Нужна помощь с автогенерированным идентификатором. У меня есть этот код, который автоматически генерирует идентификатор, но подходит только до 10 шагов. Он начинается с PO0001 и считается только до PO0010, как только он достигает PO0010, идентификатор застревает в PO0001.

вот код, который я использовал:

Public Function newPOID(prefix As String, storedProcedure As String) As String

    Dim newId As String = prefix + "0001"
    Dim adpt As New SqlDataAdapter
    Dim ds As New DataSet
    Dim dr As SqlDataReader
    Dim conn As New SqlConnection
    conn.ConnectionString = conString
    utos = New SqlCommand(storedProcedure, conn)
    utos.CommandType = CommandType.StoredProcedure
    conn.Open()
    dr = utos.ExecuteReader

    If dr.Read Then
        If dr.IsDBNull(0) Then
            Dim num As Integer = 1
            'Dim prefix As String = "PO"
            Dim append As String = prefix + num.ToString().PadLeft(4, "000")
            newId = append
        Else
            Dim POstring As String = dr(0).ToString.Substring(0, 3)
            Dim POID As Integer = dr(0).ToString.Substring(5) + 1
            Dim append As String = POstring + POID.ToString().PadLeft(3, "000")
            newId = append
        End If
        conn.Close()
    End If


    Return newId

End Function