Paramétrer le TIMEOUT

Bonjour,

J'utilise dans une macro VBA une requête SQL , j'aimerais pouvoir allonger le time out mais je ne sais pas quel parametre utiliser et ou le positionner .
Pouvez vous m'aider :oops:?
voici la fonction VBA que je lance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function UPDATE_YEARref(ByRef CON_SQLServer As ADODB.Connection, ByRef RST_SQLServer As ADODB.Recordset)
 
Dim annee As Integer
Dim mois As Integer
 
 
       mois = Range("AA3").Value
        annee = Range("AA2").Value
 
 
        RST_SQLServer.Open " UPDATE [CG_PROD].[dbo].[Ref_Year] SET [periode]='" & mois & "' ;"
 
        RST_SQLServer.Open " UPDATE [CG_PROD].[dbo].[Ref_Year] SET [annee]='" & annee & "' ;"
 
        RST_SQLServer.Open " EXECUTE [CG_PROD].[dbo].MAJ_PRU ;"
 
 
End Function