'************************************************************
 Private Sub Update_Click()
 
 '调用数据库连接过程
  Call OpenConn
  
 '执行更新sql语句
 cn.Execute "Update 新系统 set 值='00'Where  参数名=' 服务器' "

 

 '调用数据库关闭过程
 Call CloseConn
 
 '调用读取数据库过程
 Call ReadData_Click

 '调用数据库连接过程
  Call OpenConn2
  
 '执行更新sql语句


 cn.Execute "Update 新系统 set 值='02'Where  参数名=' 服务器' "
 
 '调用信息窗口过程
 MsgBox ("全部修改成功，可以正常使用了！")
 
 '调用数据库关闭过程
 Call CloseConn2
 
 '调用读取数据库过程
 Call ReadData_Click

 End Sub
 
 '读取数据库
 
 '************************************************************
 
 Private Sub ReadData_Click()
 
 '清楚屏幕信息
  Me.Cls
  
'调用数据库连接过程
  Call OpenConn
  
 
'调用数据库关闭过程
 Call CloseConn
 
 End Sub


 Private Sub view_click()
 
 '清楚屏幕信息
  Me.Cls
  
'调用数据库连接过程
  Call OpenConn
  
 '执行查询sql语句
 rs.Open "Select * from 编号表", cn
 
 '读取记录集内容
 While Not rs.EOF
 '将记录输出到窗体上
 a = rs("单编号")
 b = rs("单总编号")
 rs.MoveNext
 
Label3.Caption = a
Label4.Caption = b
 Wend
 
'调用数据库关闭过程
 Call CloseConn
 
 End Sub

——————————————————————————
大家帮忙看看，怎么不更新数据啊

一个值='00'
另一个值='02'
都没有更新
在线等

where前有空格

还有‘服务器’引号前不能有空格，这样的错误我遇到过，检查数据表中是‘服务器’还是‘  服务器’

楼上已经说了
1. where 之前必须有一个空格，多了没有关系
2. ‘服务器’还是‘  服务器’必须搞清楚，或者改成模糊查询http:// 懒得写了，自己看这个网站吧
你的错误多半在SQL语句上，建议在Access或者SQL Server上测试一下你的代码，不想改变数据内容的话改成Select就可以