主题：[求助]代码错误，怎么修改？

For Each dr As DataRow In DataTables("WHJC_Jilu").Select("[检查日期]< '& Date.Today.AddDays(-10) & '  ")
    dr("_locked") = True
    DataTables("WHJC_Jilu").Save()
Next

如下错误，怎么办？

---------------------------
版本:2013.10.14.1
---------------------------
代码执行出错，错误信息：

System.Data.EvaluateException: 无法在 System.DateTime 和 System.String 上执行“=”操作。

   在 System.Data.BinaryNode.SetTypeMismatchError(Int32 op, Type left, Type right)

   在 System.Data.BinaryNode.BinaryCompare(Object vLeft, Object vRight, StorageType resultType, Int32 op, CompareInfo comparer)

   在 System.Data.Select.Eval(BinaryNode expr, DataRow row, DataRowVersion version)

   在 System.Data.Select.Evaluate(Int32 record)

   在 System.Data.Select.FindFirstMatchingRecord()

   在 System.Data.Select.GetBinaryFilteredRecords()

   在 System.Data.Select.SelectRows()

   在 System.Data.DataTable.Select(String filterExpression, String sort, DataViewRowState recordStates)

   在 Foxtable.DataTable.Select(String O01OlO11Ol0OlOll, String OOll, DataViewRowState O00OO11l)

   在 Foxtable.DataTable.Select(String O001lO00lll0ll00)

   在 UserCode.Test()
---------------------------
确定  
---------------------------