erreur de compilation dans vba97

bonjour à tous,

J'ai une erreur du même genre que celle discutée justement dans ce forum
ces jours derniers : "Trop de paramètres : 2 attendus".
J'ai donc regardé le fil de ce post. J'ai vu que cela pouvait porter sur
une erreur de nom. J'ai donc changé tous les noms de champs pour qu'il
n'y en ait aucun de semblable.

Comme l'a conseillé Eric, j'ai essayé de faire debug.print sql mais j'ai
un message d'erreur dans la ligne de la chaîne sql (alors que cette
requête fonctionne très bien en mode requête quand je la lance
manuellement).
Quand je clique sur compiler, il m'affiche erreur de compilation et
s'arrête sur le 1er " de mm. Comme il y en a déjà un au début de la
chaîne, je suppose qu'il prend cela pour la fin de la chaîne sql.

La voici :
Dim db As Database
Dim r As Recordset, s As Recordset, f As Form
Dim suivnum1 As String, suivnum2 As String, suivnum As String, nouvnum
As String
Dim numero As Long
Dim codecli1 As Long
Dim mm As Byte
Dim yyyy As Long
Dim sql1 As String


Set db = DBEngine(0)(0)

' ----------------------------
sql1 = "SELECT DISTINCTROW [BL TEMP].CodeClient, CLIENTS.Codetab,
CLIENTS.[Code service], SERVICES.[Nom du service],
SERVICES.Factureindividuelle, CLIENTS.[Nom], CLIENTS.Monsieur,
CLIENTS.Prénom, CLIENTS.Adresse, CLIENTS.Ville, CLIENTS.[Code Postal],
Format([DateSortie_temp], "mm") AS MoisBL, Format([DateSortie_temp],
"yyyy") AS AnnéeBL FROM (SERVICES INNER JOIN CLIENTS ON
SERVICES.Codeservice = CLIENTS.[Code service]) INNER JOIN [BL TEMP] ON
CLIENTS.Codeclient = [BL TEMP].CodeClient GROUP BY [BL TEMP].CodeClient,
CLIENTS.Codetab, CLIENTS.[Code service], SERVICES.[Nom du service],
SERVICES.Factureindividuelle, CLIENTS.[Nom], CLIENTS.Monsieur,
CLIENTS.Prénom, CLIENTS.Adresse, CLIENTS.Ville, CLIENTS.[Code Postal],
Format([DateSortie_temp],"mm"), Format([DateSortie_temp],"yyyy") HAVING
(((Format([DateSortie_temp], "mm")) = [Forms]![Choix_fact_perso]![Mois])
And ((Format([DateSortie_temp], "yyyy")) =
[Forms]![Choix_fact_perso]![Année])) ORDER BY [BL TEMP].CodeClient ; "

Debug.Print sql1

' en attendant de trouver l'erreur
' Set r = db.OpenRecordset("BL1 chrono", DB_OPEN_DYNASET)

Set s = db.OpenRecordset("Factures", DB_OPEN_DYNASET)


Comment lui indiquer que c'est une expression et non la fin de la chaîne
sql ?

Merci d'avance.

Gundt