The ConnectTimeout property of an object of ClassType clsServer sets or returns the maximum amount of time an idle connection to an Analysis server is maintained before the server is considered to have timed out.
Long
Read/write
The default value is zero (0) seconds; that is, the server connection never times out. The maximum allowed value is one million (1,000,000) seconds, approximately 11 days and 14 hours. To have the server connected indefinitely, set the ConnectTimeout property to zero (0).
Use the following code to set the ConnectTimeout property for a server. You must call the Update method for your changes to take effect.
Dim dsoS As New DSO.Server
dsoS.Connect "LocalHost" ' server name
dsoS.ConnectTimeout = 18000 ' timeout value, in seconds
dsoS.Update