主题：不同表里查找相同的行

1、我想同时删除其他表里具有相同编号的行，下面代码有什么问题，我在命令窗口执行，r返回值不对

Dim bh As String = Tables("登记表").Current("资产编号")
Tables("登记表").Current.Delete
With Tables("盘点表")
    Output.Show(bh)
    Dim r As Integer
    r = Tables("固定资产盘点表").FindRow("固定资产编号 like 'bh '")
     If r >= 0 Then '如果找到的话
    Output.Show(r)
    .Position = r '定位到找到的行.
  Tables("固定资产盘点表").Current.Delete
    End If
End With