Out of memory exporting to spreadsheet

[croydon]

I am copying the contents of an Access table to an Excel spreadsheet. I have a problem copying the contents of a memo field.

If I try to copy using the code below, I get a run-time error '1004' - Application defined or object-defined error:

xlsheet.Cells(intRow, 4).Value = rs(3)

If I use the code below I get run-time error '7' - Out of memory:

If Len(rs(3)) > 0 Then


xlsheet.Cells(intRow, 4).Value = Left(rs(3), Len(rs(3)))
End If

Any suggestions would be appreciated.

[croydon]

The length of rs(3) was 2076 characters.

[Access_Blaster]

How many records are you trying to export?

[croydon]

There are about 400 records in the table. That particular column has various lengths (it is a 'comments' field).