主题："未将对象引用设置到对象的实例"错误出现的原因是什么？

各位老师好，我做了一个接口的程序，但在外接设备传输数据时会出现"未将对象引用设置到对象的实例"对话框，点击详细后，提示datarecieved里面的代码有问题，代码如下：

1、你的表，有100行吗？

 

2、你的表的datacolchanged写有什么代码？

老师您好，我的表没有100行，而且datacolchanged里面也没有代码。

If e.Port.ReadExisting IsNot Nothing
    For Each s As String In e.Port.ReadExisting
        Dim nr As Row = Tables("啊").addnew
        nr("第二列") = s
        nr("第一列") = nr.Index+1
    Next
End If

谢谢老师！