主题：报错！

msgbox("编号='" &  Tables("申报查询_table1").Current("编号") &"'")
 Dim dr As DataRow=DataTables("申报表").sqlfind("编号='" &  Tables("申报查询_table1").Current("编号") &"'")

这句总报如下错误，不知道什么原因，msgbox已经显示编号='1'但还是报错

未将对象引用设置到对象的实例。