Timeout expired

[Phil Hellmuth]

I'm attempting to run the following code. A sproc is called (a lengthy
one), and after approx. 1 minute I get a 'timeout expired' error message,
even though I've tried various values for the connection's ConnectionTimeout
parameter. Any suggestions?
Dim adoConnection As ADODB.Connection

Const sDataSource As String = "MediaStaging"

Const sUsername As String = "sa"

Const sPassword As String = "ABC"

Set adoConnection = New ADODB.Connection

adoConnection.ConnectionTimeout = 0

adoConnection.Open "DSN=" & sDataSource, sUsername, sPassword

Dim adoCommand As New ADODB.Command

adoCommand.ActiveConnection = adoConnection

adoCommand.CommandText = "LongSproc"

adoCommand.CommandType = adCmdStoredProc

adoCommand.Execute