Dates With Leading Zero

Hi

I've tried searching the forum but cannot find anything relevant.

My problem is I have a combo box in an access form which displays dates from a table. The table field and the combo box format is set to short date. When the value changes the data on the form body changes relevant to the selected date. This works fine except when the date has a leading zero (e.g. 06/03/2006) in which case no data is displayed. I have a variable of type date which takes the value of the combo box and then an sql statement which uses this variable. I have used breakpoints and foudn that the variable has a value of (e.g.) 06/03/2006 and this is how the date is stored in my table. I'm wondering if I'll need to do something with totext, turn the date into a string and make sure it has the leading zero?

Do you know if this is a known problem with access/access forms? If anyone can point me in the right direction as to why the code has a problem with leading zeros I would greatly appreciate it.

Thanks in advance.

My code is:

Private Sub cboDate_Change()
Dim datTemp As Date
datTemp = cboDate.Value
''cboDate.SetFocus
Form.SetFocus

Form.RecordSource = "SELECT [staff].[staff_id], [staff].[lastname], [staff].[forename], [staff].[bocs_name], [staff].[headset], [staff].[phone_uic], [staff].[bocs_uic], [staff].[group], [staff].[type], [staff].[email], shifts.* FROM staff LEFT JOIN shifts ON [staff].[staff_id]=[shifts].[staff_id] WHERE [staff].[type] <> 'Leaders' AND (((shifts.date) Is Null Or (shifts.date)= #" & datTemp & "#))"

End Sub