BUG DAO 3.5 E D4 native MSACCESS

BUG DAO 3.5 E D4 native MSACCESS

Query1CampoA.AsCurrency := 0;
Query2CampoB.AsCurrency := 8.11;

Query1.Edit;
Query1CampoA.AsCurrency := Query2CampoB.Ascurrency;

Query1CampoA.AsCurrency with 8.1099