Creation d'une fonction

bonsoir ; jai une table Service (IdService;DateService;IdSecteur;SujetService;ValeurServie;Num_Matricule;
CodeService)
le champ [CodeService] est de type texte qui est est mis à jour à partir de cette fonction:

Function GenCodeService() As String
Dim Code As String
Dim mx As Integer
mx = DCount("CodeService", "Service", "CodeService is not null")
If (mx = 0) Then
Code = "Serv_000001" & "/" & Year(Now)
Else
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Max(Mid([CodeService],3,6)) as maxcmd FROM Service", dbOpenDynaset)
If Not rs.EOF Then rs.MoveFirst
Code = "Serv_" & Format(Int(rs("maxcmd")) + 1, "000000") & "/" & Year(Now)
rs.Close
Set rs = Nothing
End If
GenCodeService = Code
End Function
en effet ; lorsque je valide l'enregistrement dans mon formulaire ; il me ramène un message d'erreur '' Incompatibilité de type" et souligne en jaune
Code = "Serv_" & Format(Int(rs("maxcmd")) + 1, "000000") & "/" & Year(Now) dans la fonction crée
comment regler ce probleme
merci d'avance