diff --git a/packages/fcl-db/src/sqldb/odbc/odbcconn.pas b/packages/fcl-db/src/sqldb/odbc/odbcconn.pas
index 70d03a1d11..ade1092ac8 100644
--- a/packages/fcl-db/src/sqldb/odbc/odbcconn.pas
+++ b/packages/fcl-db/src/sqldb/odbc/odbcconn.pas
@@ -420,7 +420,7 @@ begin
             else        SqlType:=SQL_WVARCHAR;
           end;
         end;
-      ftFloat:
+      ftFloat, ftCurrency:
         begin
           FloatVal:=AParams[ParamIndex].AsFloat;
           PVal:=@FloatVal;