只允许编辑今天和昨天的数据，这样写了代码提示错误，请教如何修改代码？同时请教有没有更好的判断写法？

Dim ctl As WinForm.Control = e.Sender
Dim r As Row = Tables("游戏个人数据s_龙源宝藏").Current
Dim tp As TimeSpan = Date.Today - r("日期")

Select Case ctl.BindingField
    Case "游戏个人数据s_龙源宝藏.家庭表现", "游戏个人数据s_龙源宝藏.家长留言"
        If _UserRole = "学生" Then
            If tp.TotalDays <= 2 Then \'设定只能编辑当天和之前一天的数据
                ctl.ReadOnly = BooleanEnum.False \'允许编辑
            Else
                msgbox("只能编辑当天和之前一天的数据,当前记录已过期,下次请及时添加数据哟!")
            End If
        End If
    Case Else
        ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End Select

Dim tp As TimeSpan = Date.Today - Cdate(r("日期"))