range('A1').copyfromrecordset Ошибка

[.Quattro.]

CopyFromRecordset - Это экселевская функция.
Мне кажется, здесь с decimal проблема.

Попробуйте создать такой recordset, который состоял бы только из текстовых полей.
Если ошибки не будет, значит проблема скорее всего в поле типа decimal