Dim idx As Integer = Tables("表A.表B").FindRow("_Identify = " & Tables("表B").Current("_Identify"))
If idx >= 0 then
Tables("表A.表B").Position = idx
End If