Here is the code piece...

With ThisWorkbook.Sheets("XX XX")
..Range(.Cells(4, 2), .Cells(intMaxRow + 3, _
intMaxCol + 1)).CopyFromRecordset rs
End With

Does anyone have experience of using CopyFromRecordset? I used it to
copy data from Access to Excel Worksheet. However, all those data
(with numerical ) are being changed to date. I have to mannually
format those cells before they can display correct. Thanks so much in
advance if you know what is the problem...