dr = e.DataTable.Find("物料名称 + '|' + 规格 + '|' + 等级 + '|' + 单位 + '|' + 品牌 = '" & str & "'")
改成
dr = e.DataTable.Find("isnull(物料名称,'') + '|' + isnull(规格,'') + '|' + isnull(等级,'') + '|' + isnull(单位,'') + '|' + isnull(品牌,'') = '" & str & "'")