主题：查询条件可用变量替换吗？

就是有了变量，sql语句才如此多姿多彩。

例子： 加载今天的订单数据：

Dim dt As DataTable = DataTables("订单")
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()