条件上排除当前行就行啊
"SELECT * F rom {板材未采购数量} Where [板材设计ID] = " & dr("板材ID") & " And 主键 <> '" & dr("主键") & "'"