主题：看看我的错误在哪里

For Each dr1 As Row In Tables("填加客户_tblLinshi").Rows
    Dim dr2 As DataRow = DataTables("baidu_client").Find("cCompany= '" & dr1("号码") & "'")
    If dr2 Is Nothing Then
      dr2.DataTable.AddNew
      dr2("cCompany")=dr1("号码")

    End If
Next
messagebox.Show("标记完毕")

比较 dr1("号码")是否在dr2(("cCompany")里存在，如果没有就新添加一个记录。

怎么提示错误，未将对象引用设置对象实例