主题：代码执行出错

Dim DR As DataRow = DataTables("词典").Find("[类型] = '级别名称' And [上限] >= '" & Tables("客户资料").Current("得分") & "' And [下限]<=  '"& Tables("客户资料").Current("得分") &"'")

Output.Show("客户:" & dr("名称"))

上面这段代码红色的可以执行，但下面这段代码就一直会出现（未将对象设置到对象实例）这种错误，那位大神可以提点指点吗？我系统里还不止这一处会出现这个问题整个系统有好几个表出现这情况，但一直找不到原因。