SQL to find closest price

Let(

[
table = _FIELDREF_getTO ( DRIVE_COST::ID ; "" ) ;
device = JOBS~::Drive_SourceMediaType ;
capacity = JOBS~::Drive_Capacity ;
drive =  Jobs~TargetMediaUsed::Description ;
unit = JOBS~::Drive_CapacityUnits ;
encrypted = 1 ;

sql =
"SELECT TOP 1 PRICE
FROM " & table & "
WHERE DEVICETYPE LIKE " & "'" & "%" & device & "%" & "'" & " AND
ENCRYPTED = " & encrypted & "
ORDER BY ABS(CAPACITY - " & capacity & ")";
result = ExecuteSQL ( sql ; ¶ ; ""  )
];

 "(not to exceed $" & result & " for a " & "capacity"  & " "  & unit & " "  &  drive & "drive.)"  & ¶ &sql
)