DLOOKUP NEEDS RESET (i THINK)

[tasawer]

I am using DLOOKUP to bring up the value of VAT rate applicable in a particular date period. but it is not bringing expected values.
Can someone help me resolve the issue. Thx

I have a table: "tVATRate"
VATId RateDateStart RateDateEnd VATrate
1 01/12/2000 30/11/2008 17.5
2 01/12/2008 30/11/2009 15
3 01/12/2009 31/12/2099 16

In a form, I am using dlookup to find the VATRATE between two dates using the function below:

Dim Rate1, Rate2 As Long
Dim dt, df As Date

'Startdate and Enddate are taken from fields on form. They are in UK format

‘Change dates to US format as required by SQL
df = Month(StartDate ) & "/" & Day(StartDate) & "/" & Year(StartDate)
dt = Month(EndDate) & "/" & Day(EndDate) & "/" & Year(EndDate)

Rate1 = 0
Rate2 = 0

‘Check VAT RATE at beginning of period
Rate1 = DLookup("vatrat e", "tvatrate", _
"RateDateSt art <= #" & df & "#" & " And RateDateEnd >= #" & df & "#")

‘Check VAT RATE at END of Period
Rate2 = DLookup("vatrat e", "tvatrate", _
"RateDateSt art <= #" & dt & "#" & " And RateDateEnd >= #" & dt & "#")

MsgBox Rate1 & " " & Rate2

If I rem out dt and rate2, then returned rate1 is ok
If I rem out df and rate1, then returned rate2 is ok

Only when I check both together that there is a problem.

[FishVal]

Try to declare df and dt variables as String.
Also, pay attention that in your Dim statement only the last variable is declared with type you intend to give to all of them, others are declared as Variant.

[tasawer]

Thank you very much FishVal for the prompt reply. It has now been resolved.