Código para auto incrementação

[sadjuan]

Alo galera

alguém podia me ajudar como desenvolver um codigo de auto incrementação como por exemplo.

Gostaria que o código incrementasse e tivesse a seguinte estrutura:

00001

00002

esta incrementação deve ser para cada artigo introduzido.

Ex: ao introduzir um artigo ele deve gerar um código novo sempre com o número seguinte ao anterior.

Agradeço desde qualquer ajuda com código.

[quintelab]

Basta verificar qual o último código e fazer +1.

A dificuldade esta em qual parte do processo?

Abraços...

[sadjuan]

No VB6 eu fazia assim:

Private Function codgen() As String
    On Error Resume Next
    

Set rec = New ADODB.Recordset
    If rec.State > 0 Then rec.Close
    rec.Open "select max(mid(code,2)) from  Produtos", conn, adOpenDynamic, adLockOptimistic
    If IsNull(rec(0)) Then
        codgen = "M00001"
    Else
        codgen = "M" & Format(Val(rec(0)) + 1, "00000")
    End If
    Text7 = codgen
End Function

e mais tarde eu simplesmente chamava o codgen()

Agradecia de saber como transformar este código para o VB.Net 2008

[quintelab]

Poste o que fez aqui e vamos tirando as dúvidas.

Abraços...