主题：到期提醒设计,过期后怎样取消呀

请问:

    到期提醒设计,过期后怎样取消呀

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("开piao到款").Find("实到款期 <= #" & dt & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有开piao到款将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("开piao到款").Filter = "实到款期 <= #" & dt & "#"
    MainTable = Tables("开piao到款")
Else
End If