dr = DataTables("CLXXDJB").Find("[CLPZH] = tb1.Text")
改成
dr = DataTables("CLXXDJB").Find("[CLPZH] = '" & tb1.Text & "'")