主题：外部数据表刷新问题

Dim dt As Date = Date.Today.AddDays(-7)
DataTables("订单出货表").LoadFilter = "制单日期> #" & dt & "#"
DataTables("订单出货表").Load()
With Tables("订单出货表")
    .Position = .Rows.Count - 1
End With

请问大师 以上代码运行时 显示（'#' 附近有语法错误），它错在哪？