主题：系统报错求助

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("ABC").FindRow(dr)
If wz >=0 Then
      Tables("ABC").Position = wz
End If

在副本表表事件中添加上述代码后，如果该副本表中只有一行信息，在副本表双击打开的窗口录入数据后由于自动筛选出现报错，怎么修改代码？

错误所在事件：ABC,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例