Dear all,

When I passed a date value from Recordset to Excel cell
cell , when the date is 1899/1/1
The VBA complains " Applicaiton Object defined error".

The code is as follows

Sheet2.Cells(i + 5, j + 1) = rs.Fields(j).Value

If rs.fields(j).value equals to 1899/1/1, the error
occured. If I change the rs.fields(j).value to

2000/1/1, then there is no error.

What happened? How to adjust excel to accept the date
1899/1/1?

Thanks.