Une fonction plus simple que celle-ci

voici une fonction que j'ai créé fonctionnant très bien
mais donc j'aimerais savoir s'il y a moyen de simplifier nettement la chose.
j'ai une table qui s'appelle t2cour où un champ numérique à pour nom
NumIntDep
cette table est dans le même fichier mdb

ce qui me déplait (je n'ai peut être pas le choix) c'est les déclarations du
type SET
pas facilement controlable et les dim des adodb.recordset
ainsi que la libération de la fonction en mémoire

y a t'il moyen de faire bien plus simple pour la même efficacité ?


Cette fonction me permet de créer un compteur automatique pour le suivi
d'une base courrier où l'utilisateur
doit toujours mettre un numéro d'enregistrement du format 200300001
de cette manière on peut se rendre compte que la base permet 100000
enregistrement maximum par an
et passe automatiquement à 200400001 l'année suivante

Function NumDepart()
On Error GoTo ErreurHic
'd'abord j'ouvre une pseudo connection
Dim cnn As ADODB.Connection
Dim Recherche As ADODB.Recordset

' précise l'objet comme étant une base virtuelle

Dim rst As New ADODB.Recordset
' precise que nous sommes dans le projet en cours
Set cnn = CurrentProject.Connection
' variable de la requete sql
Dim StrSql As String
Dim Compteur As Variant
Compteur = Year(Now) * 100000


StrSql = "SELECT Max(t2cour.NumIntDep) AS Reponse FROM t2cour; "



rst.Open StrSql, cnn
Compteur = rst.GetString(adClipString, 1)

NumDepart = Compteur + 1

If NumDepart <= 1 Or NumDepart < (Year(Now) * 100000) Then GoTo
ErreurDepart:

rst.Close

' Détruit les variables objet.
Set rst = Nothing
Set cnn = Nothing
Set Recherche = Nothing

GoTo Fin


ErreurDepart:
NumDepart = Year(Now()) * 100000 + 1
GoTo Fin

ErreurHic:
MsgBox "impossible de créer la numérotation automatique"

Fin:
Set rst = Nothing
Set cnn = Nothing
Set Recherche = Nothing
End Function