Const RECORDS_PER_ITERATION = 500000
Dim r

REM rs - adodb.recordset
Do Until rs.EOF
    Set r = ' присваиваете переменной начало диапазона для выгрузки

    REM Function CopyFromRecordset(Data As Unknown, [MaxRows], [MaxColumns]) As Long
    r.CopyFromRecordset rs, RECORDS_PER_ITERATION

    Set r = Nothing

    REM сохраняете файл, или делаете другие действия, которые, как Вы считаете, спасут от Out of memory
Loop