strselect = "select * from 材料表 where 材料类别='" & Trim(txt1.Text) & " ' and 材料名称='" & Trim(txt2.Text) & " ' and 规格及型号='" & Trim(txt3.Text) & "'"
