ADO. То CommandTimeout не проставляется - VB

Формулировка задачи:

Вот такая проблема при создании Connection к базе

Dim cmd: Set cmd = Server.CreateObject('ADODB.Command')
cmd.CommandTimeout = 300000
cmd.ActiveConnection = mConnection
cmd.CommandText = SQL
Set rst = cmd.Execute

Все правильно срабатывает, но если я меняю местами 2 и 3 строчки т.е.

Dim cmd: Set cmd = Server.CreateObject('ADODB.Command')
cmd.ActiveConnection = mConnection
cmd.CommandTimeout = 300000
cmd.CommandText = SQL
Set rst = cmd.Execute

То CommandTimeout не проставляетьсяь. И после стандартных 30 секунд(by Default) выдает timeout, значит после того как создан connection нельзя проставить CommandTimeout помогите разобраться.

Решение задачи: «ADO. То CommandTimeout не проставляется»

textual
                            Листинг программы 
                        
                            cmd.ActiveConnection