Dim cr As Row = Tables("表A").Current
Dim fdr As DataRow = DataTables("表A").Find("会员卡号 = '" & cr("会员卡号") & "' and _Identify < " & cr("_Identify"), "_Identify desc")
If fdr IsNot Nothing Then
msgbox(fdr("余额"))
Else
msgbox("没找到")
End If