Rs!pedido =  pegaultimopedido + 1

 

 

 

Eu sempre utilizo esse código:

 

Public Sub contador()
tabela.CursorLocation = adUseClient
tabela.Open "Select nmaior = max(campo) from tabexemplo", cnBanco, dOpenKeyset, adLockOptimistic, adCmdText
If tabela.EOF Then
  lblnro.Caption = "00001"
Else
   lblnro.Caption = Format((Val(tabela!nmaior) + 1), "00000")
End If
tabela.Close
End Sub

 

Espero ter ajudado!

 

Futura, boa tarde..

 

        Que tal trocar o tipo de abertura da tabela e bloquear o registro durante a inclusão ?