(Record3 is filled so to avoid null value in Val1)
...The following code doesn't work...
Dim Ratio, Dscnt As Single
With recordset 'recordset points to the tbl above
Do Until .EOF
If Ratio & !Sign1 & !Val1 & " And " & !Sign2 & !Val2 Then
Dscnt = !Discount
"Pick a number from 1 to 10." "Goat!" that's a Type Mismatch. it means you're trying to assign a value of one type to a value of a different type. check your datatype for your fields in the database. i'm guessing that your Discount field doesn't have the Field Size set to Single in your database table, but you didn't say which line the error occurs on. good luck.