I tried this and it is still ignoring the date filter.
I tried running it as below and obviously got an error as the WHERE statement is incomplete.
strSQL = "SELECT Performances.ID, Performances.Perf_Date, Performances.Duration FROM Performances "
strSQL = strSQL & "WHERE...