I fixed the issue with the 01/03/1900. It was the variable type.
The issue is the SQL on the quarter part that is not pulling the any information
Public Sub FRFilter()
Dim TodayDate As Date
Dim MyDatePart As Integer
Dim DBDatePart As Integer
TodayDate = Format(Date, "mm,dd,yyyy")...