Expiration du délais lors d'une requête SQL

conn.ConnectionString = "xxxxxxxxxx;" & _
         "Data Source=xxxxxxxx;" & _
         "Initial Catalog=xxxxxxxxxx;" & _
         "User Id=xxxxxxxx;" & _
         "Password=xxxxxxxxx"
conn.Open

    Columns("AH:AP").Select
    Selection.ClearContents
    Range("X21").Select
    
   
    ' requete avec presse, job, produit, date debut, date fin

    If Cells(10, 7) <> "" And Cells(10, 9) <> "" And Cells(10, 8) <> "" And Cells(5, 8) <> "" And Cells(5, 10) <> "" Then

                  [U]Ma requete SQL[/U]
  
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = conn
Call rs.Open(sSQL, conn, adOpenForwardOnly, adLockReadOnly)



Set qt = Sheets("Detail Job").QueryTables.Add(Connection:=rs, Destination:=Range("AH4"))


qt.Refresh

If rs.State <> adStateClosed Then
    rs.Close
End If

...
Set rs.ActiveConnection = conn
conn.CommandTimeout = 0
...