主题：[求助]求助代码出错

    Dim d1 As Date = Date.Today
    Dim d2 As Date = d1.AddDays(-1)   

    DataTables("FR问题表").LoadFilter = "[隐藏] = False And [下次汇报时间] < #" & d2 & "# And [FR完成时间] Is Null"
    DataTables("FR问题表").Load

以上代码有什么问题，怎么老是报错？