Search by Multiple Criteria and Two Listboxes

[Loss1003]

Having trouble fixing the attached userform/code to search by a date format.

I can search fine by the Account Name, Number, Department or Requestor. However, I cannot search by the report order date. The code I’m currently appears to be failing to pick up the date format. I’ve tried switching to general formats or setting the format (date) after exiting the OrderD1 comb box. But nothing has worked. Any help is appreciated

  If OrderDAnd.Value = True Then
                If OrderD1.ListIndex > -1 Then .Range("H4") = "=" & """" & OrderD1.Value & """"
                If OrderD2.ListIndex > -1 Then .Range("I4") = "=" & """" & OrderD2.Value & """"
            Else 'It's or
               If OrderD1.ListIndex > -1 Then .Range("H4") = "=" & """" & OrderD1.Value & """"
               If OrderD2.ListIndex > -1 Then .Range("H5") = "=" & """" & OrderD2.Value & """"
            End If
 
      .Range("D1", .Range("D65536").End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Sheet6.Range("BA1"), Unique:=True
        Sheet6.Range("BA1").CurrentRegion.Offset(1, 0).Name = "OrderDat1"
        Range("OrderDat1").Sort Key1:=Range("OrderDat1").Cells(1, 1), Order1:=xlDescending, Header:=xlNo
        OrderD1.RowSource = "OrderDat1"
        OrderD2.RowSource = "OrderDat1"