主题：求助：SQLFIND条件代码

 在内部函数中有如下代码：
Dim r As DataRow = args(0)
Dim flag As Boolean = args(1)

Dim dr As DataRow
Dim drs As List(of DataRow)
dr = r.DataTable.Find("日期 < #" & r("日期") & "# or (日期 = #" & r("日期") & "# And _sortkey < " & r("_sortkey") & " )", "日期 Desc, [_SortKey] Desc") '找出上一行
If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
    r("余额") = r("流入金额") - r("流出金额")
    If flag Then
        drs = r.DataTable.Select("日期 >= #" & r("日期") & "#", "日期, [_SortKey]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("流入金额") - drs(i)("流出金额")
        Next
    End If
Else If dr.IsNull("余额") Then
    Functions.Execute("compute", dr, False)
Else
    drs = r.DataTable.Select("日期 >= #" & dr("日期") & "#", "日期, [_SortKey]")
    For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
        drs(i)("余额") = drs(i-1)("余额") + drs(i)("流入金额") - drs(i)("流出金额")
    Next
End If

用于计算现金流水账 中现金余额，执行正常。
近期对现金流水账实行动态加载，比如只加载本日数据，再添加数据时，调用以上内部数据执行后余额为本行发生数，没有加载到表中最后一行余额无法参与计算。
我把dr = r.DataTable.Find("日期 < #" & r("日期") & "# or (日期 = #" & r("日期") & "# And _sortkey < " & r("_sortkey") & " )", "日期 Desc, [_SortKey] Desc") '找出上一行
这行代码 中Find 改为SQLFind ，执行后报错：提示该代码中 条件语句出错