Gerar código automaticamente

[parmeira0376]

Olá quem sabe a resposta, tenho uma linha de codigo para gerar codigo automaticamente de intens vendido só que ele só gera até o 10, depois começa a repetir o 10. Como faço para resolver. O código é isto abaixo!

Public Sub Gerar_Codigo_ItensVenda()

'On Error GoTo Erro

Dim Cont As Double

Cont = 1

Screen.MousePointer = 11

SQL = "SELECT MAX(CODITENSVENDA) AS ULTCODIGO FROM TBLITENSVENDA"

Set TBLITENSVENDA = New ADODB.Recordset

TBLITENSVENDA.CursorLocation = adUseClient

TBLITENSVENDA.Open SQL, Con, adOpenKeyset, adLockPessimistic

If Not IsNull(TBLITENSVENDA.Fields("ULTCODIGO")) Then

Cont = Cont + TBLITENSVENDA.Fields("ULTCODIGO")

Else

Cont = 1

End If

xCodItVenda = Cont

TBLITENSVENDA.Close

Set TBLITENSVENDA = Nothing

Screen.MousePointer = 0

'Exit Sub

'Resume 'Continue a execução na mesma linha que provocou o erro.

'Erro:

Rem Tratamento de Errors

'Screen.MousePointer = 0

'MontarDescErrorGeral Me.Caption, xLogin

End Sub

Onde Está o ERRO?