I also tried another approach, but I can't get it to work either.
Code:
--------------------------------------------------------------------------------
Private Sub btnAdminCalendar_Click()
Dim strForm As String, strSQL As String
Dim strFilter As String, strWhere As String
strForm =...