Bem , ja que ninguem respondeu , vamos ver se consigo te ajudar ...
Private Function ProximoCodigo() as String
Dim RS as new adodb.recordset
RS.Open "SELECT MAX(Codigo) +1 as NovoCod FROM Tabela", Cn, adOpenFowardOnly , adLockReadOnly
IF RS.EOF Then
ProximoCodigo = "200601" 'Codigo Inicial. Se nao tiver registro ,comeca por esse .
else
ProximoCodigo = Format(RS!NovoCod,"000000")
end if
Rs.Close
Set Rs = Nothing
End Function
Espero ter ajudado .
