你的是sqlserver数据库?
DataTables("SOmain").LoadFilter = "[日期] = '" & Date.Today & "'"
DataTables("SOmain").Load