SQL в VBA (операция не допускается если объект закрыт)

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

День добрый. По долгу службы стало мне необходимо выбирать данные в экселевскую табличку из базы на sql server. Процедура написана, опробована на сервере, все работает.
Данные выбираются очень просто:

GetReport(Chair  , EducationYear  )
     cn   ADODB.Connection
    cn.ConnectionString =  _
    & 
    cn.
    
     cmd  ADODB.Command
     cmd = CreateObject()
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText =  _
    & Chair &  & EducationYear
    
     rs   ADODB.Recordset
    rs. cmd
    rs.MoveFirst
    
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    Cells(, ) = 
    
    q = 
      rs.EOF
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        Cells(q, ) = rs.Fields()
        q = q + 
        rs.MoveNext

Столкнулся с такой проблемой. При параметре Chair равном, скажем, 72 данные отлично забираются из базы и представляются в табличке. Но если этот параметр равен, конкретно у меня, 64, 76, 82 или 69, то на строке:

rs.MoveFirst

выдается ошибка "Операция не допускается если объект закрыт".
И это при том, что на самом сервере эта процедура выполняется и возвращает данные без ошибок независимо от параметров.
В чем может быть дело? Что именно может не понимать VBA, чтобы выдавать такую ошибку?
P.S. процедуру, если нужно, тоже напишу.

Решение задачи: «SQL в VBA (операция не допускается если объект закрыт)»

textual
                            Листинг программы 
                        
                            Cells(<font color="darkblue"><b>2</b></font>, <font color="darkblue"><b>1</b></font>).CopyFromRecordset rs