Problème dans requete en VBA

Bonjour,

je souhaite effectuer ma première requête qui permet de s'identifié.
Actuellement ma requête écrite en dur me renvoie 0 ligne pourtant j'ai identifiant existe bien dans ma table.

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
 
    Dim cmd As ADODB.Command 'permet d'exécuter des requêtes
    Dim result As ADODB.Recordset 'jeu d'enregistrements retournés lors de l'exécution d'un SELECT
    Dim dsn As String
    Dim user As String
    Dim password As String
 
 
    Set cnx = New ADODB.Connection
    Set cmd = New ADODB.Command
    Set result = New ADODB.Recordset
 
    cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
 
 
    cnx.Open
 
 
 
                With cmd
                    .ActiveConnection = cnx
                    .CommandType = adCmdText
                    .CommandText = "SELECT lua, nom FROM T_USERS WHERE codex= 'ZEVJ_23'" & _
                    "AND nom = 'MARION';"
                    .Prepared = True
                    Set result = cmd.Execute
                End With
 
                nbr_record = result.RecordCount  'on récupère le nombre de lignes dans le RecordSet
 
                MsgBox nbr_record
 
    result.Close
    cnx.Close

Je ne parviens pas a identifier le problème dans mon code.