dim dd as string= "[商品编号] = '" & spbh & "'"
cmd.CommandText = "Update {Users} Set “ & dd & “ Where [序号]= '" & UserName & "'"