呃,不执行,是因为你根本就没去执行
cmd1.CommandText = "Update {Zzichanbiao} Set shuliang = " & shipanshu & ", shiy, quyu = '" & quyu & "', diqu = '" & diqu & "' Where bianhao = '" & bianhao & "'"
这一句才是执行的语句 cmd1.ExecuteNonQuery