'в модуле
Public rs_diap As Recordset 'отсоединенный рекордсет для экспорта в Excel

Public Function OFF_rst(off_rs As ADODB.Recordset)
'ф-я для создания отсоединенного рекордсета используется для отчетов в Excel
On Error GoTo OFF_rst_Err
    If off_rs.EOF And off_rs.BOF Then
        Exit Function
    Else
       Set rs_diap = off_rs.Clone(adLockBatchOptimistic)
       Set rs_diap.ActiveConnection = Nothing
    End If
Exit Function
OFF_rst_Err:
MsgBox Err.Description
End Function

'в проге в процедурах делаю так
OFF_rst rs 'клонируем и отсоединяем рекордсет
rs.close

Dim objEx As New Excel.Application
objEx.Workbooks.add
objEx.Range("a1").CopyFromRecordset rs_diap