Brug af Inputbox i forbindelse med quiry

Hvorfor virker dette ikke ???

Bruger skal promptes for en dato i MyValue, som efterfølgende benyttes í min tilføjelsesforespørgsel :

WHERE (((Sunday.[CY Date])= " & MyValue & " ));"

Hele programkoden afvikles, men resultatet er blankt !!!


Public Function Generate_Report()
Dim Message, Title, Default, MyValue
Dim strSql As String
Dim db As DAO.Database

Set db = CurrentDb()

Message = "Input last week end date"    ' Set prompt.
    Title = "Report criteria"    ' Set title.
    Default = "01-01-2011"    ' Set default.

MyValue = InputBox(Message, Title, Default)

    strSql = "DELETE ReportPeriod.* "
    strSql = strSql & "FROM ReportPeriod;"
        db.Execute strSql

    strSql = "INSERT INTO ReportPeriod ( [CY End], WeekDay, [CY WeekNo], [LY End], [LY WeekNo], [Report Period] ) "
    strSql = strSql & "SELECT Sunday.[CY Date] AS [CY End], "
    strSql = strSql & "Sunday.WeekDay, "
    strSql = strSql & "Sunday.[CY WeekNo], "
    strSql = strSql & "Sunday.[LY Date] AS [LY End], "
    strSql = strSql & "Sunday.[LY WeekNo], "
    strSql = strSql & "'Week : ' & [CY WeekNo] & ' / ' & Year([CY End]) AS [Report Period]"
    strSql = strSql & "FROM Sunday "
    strSql = strSql & "WHERE (((Sunday.[CY Date])= " & MyValue & " ));"
        db.Execute strSql
   
End Function