VBA et sql server

Hello,

J'essaye de lancer une requête SQL depuis Excel via une macro dans SQL SERVER 2017, et rappatrier le résultat de la requête dans Excel.

Mais j'ai une erreur 3709 ...

Pouvez-vous m'aider svp ? Je suis sur office 365 + SQL SERVER 2017 (Ref ACTIVE X DATA OBJECT 6.1 cochée)

Erreur sur cette Ligne :

 rs.Open SQLStr, Cn, adOpenStatic

Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    Server_Name = "MON_SERVEUR" ' Enter your server name here
    Database_Name = "ANA" ' Enter your database name here
    User_ID = "TOTO" ' enter your user ID here
    Password = "TITI" ' Enter your password here

    SQLStr = "SELECT * FROM MATABLE" ' Enter your SQL here

    Set Cn = New ADODB.Connection
    Cn.connectionstring = "Provider=SQLNCLI11;Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"

    rs.Open SQLStr, Cn, adOpenStatic
     ' Dump to spreadsheet
    With Worksheets("Feuil2").Range("a1:z5000") ' Enter your sheet name and range here
        .ClearContents
        .CopyFromRecordset rs
    End With
     '            Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing

Merci par avance.

R@g