Непонятки с Access 2003:календарь на текущий месяц

Private Function IsEvent(pDate As Date) As Boolean
   Dim qdfReminder As QueryDef
   Dim rsReminder As DAO.Recordset
   
   Set qdfReminder = CurrentDb.QueryDefs("Ближайшие мероприятия")
   Set rsReminder = qdfReminder.OpenRecordset
   If rsReminder.RecordCount > 0 Then
       rsReminder.MoveFirst
       Do While Not rsReminder.EOF
           If rsReminder.Fields("Дата").Value = pDate Then
               IsEvent = True
               Exit Function
           End If
           rsReminder.MoveNext
       Loop
   End If
   IsEvent = False
End Function
 
Private Sub Calendar()
   Dim iFirstWeekday As Integer
   Dim InitDate As Date
   Dim iMonthDayCount As Integer
   Dim edtDayBlock As TextBox
   Dim i As Byte, j As Byte
   
   Me.lblYear.Caption = CStr(Year(Date))
   Me.lblMonth.Caption = MonthName(Month(Date))
   InitDate = DateSerial(Year(Date), Month(Date), 1)
   iFirstWeekday = Weekday(InitDate, vbMonday)
   iMonthDayCount = DateDiff("d", InitDate, DateSerial(Year(Date), Month(Date) + 1, 1))
   j = 1
   For i = 1 To 42
     Set edtDayBlock = Me.Controls("DayBlock" & i)
     Select Case i
        Case iFirstWeekday To iFirstWeekday + iMonthDayCount - 1
          edtDayBlock.SetFocus
          edtDayBlock.Text = j
          If IsEvent(DateSerial(Year(Date), Month(Date), j)) Then
              edtDayBlock.FontWeight = 600
          End If
          edtDayBlock.Enabled = False
          j = j + 1
        Case Else
          edtDayBlock.Visible = False
     End Select
   Next i
End Sub

Private Function IsEvent(pDate As Date) As Boolean
'   Dim qdfReminder As QueryDef
   Dim rsReminder As DAO.Recordset
   Dim s
   
'   Set qdfReminder = CurrentDb.QueryDefs("Ближайшие мероприятия")
'   Set rsReminder = qdfReminder.OpenRecordset
   s="select * from [Ближайшие мероприятия] order by Дата"
   Set rsReminder = CurrentDb.OpenRecordset(s)
.................................................
.................................................
End Function

Private Function IsEvent(pDate As Date) As Boolean
   Dim s
   s=Format(pDate, "\#mm\/dd\/yyyy\#")
   IsEvent=Dcount("*", "[Ближайшие мероприятия]", "Дата=" & s)
End Function

edtDayBlock.SetFocus
edtDayBlock.Text = j

edtDayBlock = j