SQL error message

Hello,

I am using the following code. The code is programmed to pull a
mileage expense rate from a table called "ExpenseMileageRate" (the
fields are 'Rate' and 'EffectiveDate' and use it to calculate the
currency amount. As the rate changes, I need the code to lookup the
rate that was in effect on the date of the expense and use it on
several forms. Some of the forms are historical lookups, so I don't
want them all to lookup the amount currently in effect, but the rate
that was in effect on the date of the expense.

I am getting and error after the FROM and before "ExpenseMileageRate
ORDER BY. It highlights the table name and says Compile error:
Expected: End of Statement.

Does anyone know what I am doing wrong?? I am willing to change
anything to make this work.

Private Function GetRate(ExpenseDate As Date, MileageAmount As
Integer) As Currency
Dim db As DAO.Database
Dim rs As DAO.Recordset
sSQL = "SELECT DeloitteExpensesMileageRate.[EffectiveDate],
DeloitteExpensesMileageRate.[MileageRate]" From
"DeloitteExpensesMileageRate ORDER BY DeloitteExpensesMileageRate.
[EffectiveDate] DESC;"
Set db = CurrentDb()
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
rs.FindFirst ("MileageRate.[ChangeDate] <= #" & ExpenseDate & "#")
If Not rs.NoMatch Then
GetRate = MileageAmount * rs!Rate
Else
GetRate = 0
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Function

Thanks
.

Relevant Pages

  • Re: SQL error message
    ... middle of your sSQL assignment. ... mileage expense rate from a table called "ExpenseMileageRate" (the ... I need the code to lookup the ... Integer) As Currency ...
    (microsoft.public.access.formscoding)
  • Re: Why we will use obj$func() often
    ... Prototype-based systems incur a prototype chain lookup expense on every ... That same paper also discusses a cache method that effectively eliminates ...
    (comp.lang.python)