Trying to open Form with a Filter in VBA

[DJRhino1175]

I'm trying to open a form that is filter by using VBA.

I have tried using the following:

Option Compare Database
Option Explicit
 
Private Sub cmdRabbitsDue_Click()
 
DoCmd.OpenForm _
    FormName:="frmRedRabbitDueInput"
    WhereCondition:="[DateToRecertify] <= #" & Format(Me![DateToRecertify].Value, "mm/dd/yyyy") & "#"
 
End Sub

But I get a syntax error. I think I have the structure way off but not sure.

Thanks for the help in pointing me into the right direction

[DJRhino1175]

I give a little more background info...I'm trying to open a form in datasheet format but with records containing dates that are less than the following months date...Example: all records containing a date that is less than 9/1/2019. I can get it to work if I put it in the query as < #9/1/2019# but then I need to go into the query every month to change it. So I'm trying to do it with VBA similar to the code above, but I think I'm off by a little bit. Tried to Google it and was getting everything but what I needed.

Form Name: = "frmRedRabbitDueInput"
Date Control Name is:= "DateToRecertify"

[DJRhino1175]

Found a work around. I put <CDate([Enter Date]) in the query for this date and on button click i have:

Option Compare Database
Option Explicit
 
Private Sub cmdRabbitsDue_Click()
 
On Error GoTo Error
 
DoCmd.OpenForm _
    FormName:="frmRedRabbitDueInput"
 
Error_Exit:
    Exit Sub
 
Error:
 
Select Case Err.Number
    Case 2501:
        GoTo Cancel_Error
    Case 3071:
        GoTo NothingEntered_Error
End Select
 
Cancel_Error:
    Resume Next
    Exit Sub
NothingEntered_Error:
    MsgBox "Please Enter a Date!", , "Forgot Date"
    DoCmd.OpenForm _
    FormName:="frmRedRabbitDueInput"
    Exit Sub
End Sub
 

[NeoPa]

It looks like a simple case of a missing comma (,) DJ.

Nicely formatted but you still need a comma between the parameters ;-)