求助数据写入，怎么不写入啊

'************************************************************
 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'
都没有更新
在线等