Estoy tratando de abrir una consulta, que es el tiempo de espera. He intentado establecer la propiedad de tiempo de espera, pero no parece querer aceptarla.

La consulta tarda 34 segundos en ejecutarse usando la ventana de administración de MS-SQL Server (SQL Server 2005), así que sé que necesito aumentar el tiempo de espera.

Código actual:

Public Function retRecordSet(StrSQL)
Dim cmd ' as new ADODB.Command
Dim rs 'As New ADODB.Recordset

Set cmd = CreateObject("ADODB.Command")
Set rs = CreateObject("ADODB.Recordset")

cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = StrSQL
cmd.CommandTimeout = 0
Set rs = cmd.Execute

Set retRecordSet = rs
End Function

También he intentado configurar el tiempo de espera de la conexión en síCurrentProject.Connection.CommandTimeout = 120, pero si pregunto el valor justo después de este comando, permanece en 30

Propiedades de conexión:

Proveedor = Microsoft.Access.OLEDB.10.0; Información de seguridad persistente = Falso; Fuente de datos = MyServer; Seguridad integrada = SSPI; Catálogo inicial = MyDatabase; Proveedor de datos = SQLOLEDB.1

Data Source Object Threading Model = 1
Multiple Results = 3
Multiple Parameter Sets = False
SQL Support = 283
Catalog Location = 1
Catalog Term = database
Catalog Usage = 15
Rowset Conversions on Command = True
Extended Properties = 
Cache Authentication = True
Encrypt Password = 
Persist Encrypted = 
Persist Security Info = False
Asynchronous Processing = 0
Connect Timeout = 600
Protection Level = 
Prompt = 4
Mode = 
Location = 
Locale Identifier = 1033
Impersonation Level = 
Window Handle = 
Data Source = MyServer
User ID = 
Password = 
Integrated Security = SSPI
Mask Password = 
Initial Catalog = MyDatabase
Lock Owner = 
Bind Flags = 
General Timeout = 0
Data Provider = SQLOLEDB.1
Autocommit Isolation Levels = 4096
Unique Reshape Names = False