主题：代码错误

老师，我专门从数据库建了个表A,下面代码，出现错误提示“至少一个参数没有被指定值”，麻烦帮我看下谢谢！

Dim dt As DataTable = DataTables("表A")

If dt.SourceType = 1 Then 'Access数据源

    dt.LoadFilter = "日期 = #" & Date.Today & "#"

ElseIf dt.SourceType = 2 Then 'SQL Server数据源

    dt.LoadFilter = "日期 = '" & Date.Today & "'"

End If

dt.Load()