SQL Date Between Problem

Hello...

I need some help with my SQL syntax, so it account for
all international date formats. For example, if you set
your region to Germany (germany), the short date format
is DD.MM.YYYY. This will invoke the 3075 run-time
error. Here's my queries:

Private Sub Command1_Click()
strTemp1 = MonthView1(0).month & "/" & MonthView1
(0).day & "/" & MonthView1(0).year
strTemp2 = MonthView1(1).month & "/" & MonthView1
(1).day & "/" & MonthView1(1).year

frdate = DateValue(Format(strTemp1, "Short Date"))
todate = DateValue(Format(strTemp2, "Short Date"))

Call GenerateHTML(cmbList.Text, frdate, todate)
End Sub


Private Sub GenerateHTML(strItem As String, beginDate As
Date, endDate As Date)
If strItem = "= ALL =" Then
sSql = "SELECT Title, SUM(mCount) AS SumCount
FROM Reports WHERE mDate BETWEEN #" & beginDate & "# AND
#" & _
endDate & "# GROUP BY Title"
Else
sSql = "SELECT Title, SUM(mCount) AS SumCount
FROM Reports WHERE mDate BETWEEN #" & beginDate & "# AND
#" & _
endDate & "# AND Title LIKE '" &
strItem & "' GROUP BY Title"
End If
End Sub


any help would be appreciated.

what about using CDate(strTemp1)

AGP


--

**********************************************************************
Unpak my email address before sending me personal email
**********************************************************************

"Jordan Sopher" <jordan.TakeThisOut@eyemaginations.com> wrote in message
news:004001c3836f$3c34af00$a101280a@phx.gbl...
> Hello...
>
> I need some help with my SQL syntax, so it account for
> all international date formats. For example, if you set
> your region to Germany (germany), the short date format
> is DD.MM.YYYY. This will invoke the 3075 run-time
> error. Here's my queries:
>
> Private Sub Command1_Click()
> strTemp1 = MonthView1(0).month & "/" & MonthView1
> (0).day & "/" & MonthView1(0).year
> strTemp2 = MonthView1(1).month & "/" & MonthView1
> (1).day & "/" & MonthView1(1).year
>
> frdate = DateValue(Format(strTemp1, "Short Date"))
> todate = DateValue(Format(strTemp2, "Short Date"))
>
> Call GenerateHTML(cmbList.Text, frdate, todate)
> End Sub
>
>
> Private Sub GenerateHTML(strItem As String, beginDate As
> Date, endDate As Date)
> If strItem = "= ALL =" Then
> sSql = "SELECT Title, SUM(mCount) AS SumCount
> FROM Reports WHERE mDate BETWEEN #" & beginDate & "# AND
> #" & _
> endDate & "# GROUP BY Title"
> Else
> sSql = "SELECT Title, SUM(mCount) AS SumCount
> FROM Reports WHERE mDate BETWEEN #" & beginDate & "# AND
> #" & _
> endDate & "# AND Title LIKE '" &
> strItem & "' GROUP BY Title"
> End If
> End Sub
>
>
> any help would be appreciated.