vba - restrict("[TaskDueDate] <=" 条件が無効です

Question

日曜日から毎回これを試しましたがolcontactItems、TaskDueDate Property エラーが発生し続けています。最近のエラーは

「条件が無効です」

グループ内の連絡先のそれぞれが正しいことを確認しmarkedastask、それらがすべて真実に戻ったことを確認しました。どうすればよいかわかりません。

If MassEmail.TimeFrame.Value <> "" Then
   Select Case MassEmail.TimeFrame
     Case "Due Today"
        subjFlag = Date

    Case "This Week"
        subjFlag = Date + 7
    Case "Next Week"
        subjFlag = Date + 14
    Case ""
        subjFlag = Date
    Case Else
        subjFlag = Date
End Select
End If
Set supercontacts = allContacts.Restrict("[Categories]=" & myCat & "")
MsgBox supercontacts.Count

If subjFlag <> "" Then
   Set supercontacts = supercontacts.Restrict("[TaskDueDate]<=" & subjFlag &    "")
   MsgBox supercontacts.Count

End If