Where are you - is date regional system setting an issue?
Are users inputting date as mm/dd/yyyy? Will strCondition1 always be a single date value as criteria?
Don't need the rdate variable for code as structured.
Try:
strCondition1 = InputBox("Enter date")
Problem with prompts is harder to validate user input.
While Not IsDate(strCondition1)
strCondition1 = InputBox("Enter date")
Wend
Then in the query:
WHERE ((Accounts.Date)=#" & strCondition1 & "#)
I did some tests of IsDate function:
IsDate("1/1/2012") = True
IsDate(#1/1/2012#) = True
IsDate("#" & "1/1/2012" & "#") = False
IsDate(1/1/2012) = False
IsDate(#"1/1/2012"#) = error message