Microsoft Access 掲示板

カレンダー形式のスケジュール管理フォーム作成　その２

の部分について教えてください。
クリックした日付の背景色を変更することはできました。
しかし、最上段の左から３番目の枠が常に白色のままです。（月を変更しても その部分だけ白色のまま）
どこで間違えたのでしょうか…

ご教授いただけませんでしょうか…

'フォーム 開くとき
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

    For i = 1 To 42
        Me("T" & i).OnClick = "=SetDate(" & i & ")"
    Next
    Me.cmdprev.OnClick = "=MoveMonth(-1)"
    Me.cmdNext.OnClick = "=MoveMonth(1)"
    Me.txtdate = Date
    SetCalendar
End Sub

Private Function MoveMonth(n As Integer)
    Me("T" & Me.txtdate - FirstDay).BackStyle = 0 '透明
    Me.txtdate = DateAdd("m", n, Me.txtdate)
    SetCalendar
    DoEvents
End Function

Private Function SetDate(i As Integer)
    Me("T" & Me.txtdate - FirstDay).BackStyle = 0 '透明
    Me.txtdate = FirstDay + i
    Me("T" & i).BackStyle = 1
End Function