MessageBox.show("Update {保存设置] Set [保存设置] = '" & nd.Name & "',[保存字符串] ='" & Str & "'")
至少这个:{保存设置]
应该改为:{保存设置}