Erreur sur Requête VBA sur select where

Bonjour

J'effectue une requête qui ne fonctionne plus depuis que j'ai remplacé mes valeurs en dur par mes variables l et nom.
Je ne parviens pas à me corriger

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
Sub Identification(ByVal lua As Variant, ByVal nom As Variant)
 
    'Déclaration des variables communes
    Dim cnx As ADODB.Connection
    Set cnx = New ADODB.Connection
 
    'Instanciation des variables de connexion
    Dim host As String
    host = "host"
 
    Dim dsn As String
    dsn = "dsn"
 
    Dim user As String
    user = "user"
 
    Dim password As String
    password = "toto"
 
    Dim bdd As String
    bdd = "mabdd"
 
    'Début de la connection
    'Définition de la chaîne de connexion
    cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
 
    'ouverture de la base de donnée
    cnx.Open
    MsgBox cnx.State
 
 
    'jeu d'enregistrements retournés lors de l'exécution d'un SELECT
    Dim result As ADODB.Recordset
    Set result = New ADODB.Recordset
 
    Dim sql As String
    sql = "SELECT nom,l FROM utilisateur WHERE L =" & CStr(l) & "And nom =" & CStr(nom) & ";"
 
    result.Open sql, cnx
 
    While Not (result.EOF)
        MsgBox result("nom") & " " & result("l") & "."
        rst.MoveNext
    Wend
 
    result.Close
    cnx.Close
 
End Sub

Je n'y connais quasiment rien en requètes SQL mais je suis à peu près sûr qu'il manque un espace avant le And et probablement aussi après chaque "=".

Juste après l'assignation de la variable "sql", mets un Debug.Print sql et regarde ce que ça donne dans la fenêtre d'exécution.
Compare le résultat avec la formule qui fonctionnait avant.

J'ai ajouté un espace entre " et And ainsi qu'entre les signes égale mais j ai toujours une erreur Automation :calim2::weird:

Et tu espères que c'est moi qui vais faire le test que je t'ai indiqué ?