主题：请求代码修改

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("材料跟催提醒").Find("审核=False and 计划回厂 >= #" & Date.Today & "# and 计划回厂 <= #" & dt & "#")
If dr IsNot Nothing Then
       Forms("材料跟催提醒").Show
       Tables("材料跟催提醒").Filter = "审核=False and 计划回厂 >= #" & Date.Today & "# and 计划回厂 <= #" & dt & "#"
End If