I have a spreadsheet that pulls some data from an Access database and
populates cells. Some of the cells have a comment that needs to be added.
The code I am trying is as follows (rs2 is the DAO recordset):

ActiveSheet.Cells(mrow, mcol).Value = rs2![code]
If Not IsNull(rs2![Comments]) Then
ActiveSheet.Cells(mrow, mcol).ClearComments
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
End If

When I execute this code, at the AddComment line I get the following error:

Run-time error '1004': Application-defined or object-defined error

I get this error sometimes when I attempt to add a comment to a field that
already has a comment, which is why I added the ClearComments line before
it -- but the presence or absence of the ClearComments line doesn't seem to
make any difference. I use some code similar to this successfully in another
place in my application, but I'm using the text from a textbox instead of a
recordset field to set the comment.

Does anyone see anything wrong with this code? Or is there something
additional I need to do to add the comment? If it makes any difference, the
Comments field from my database is a Memo field. I can use a MsgBox to see
the Comments field and it looks OK.

Thanks for any suggestions,

Carl Rapson