Ciao raga!

è la prima volta che cerco di fare un UPDATE...non mi funge...dove sbaglio ??? o cosa manca ?

codice:
Private Sub cmdMod_Click()
Dim query As String
Dim IdCliente, DesCliente, Ref, NoteCliente As String
       
    On Error GoTo Error_Handler
    
    If rs.State And adStateOpen Then rs.Close
        
    IdCliente = "'%" & txtIdCliente.Text & "%'"
    DesCliente = "'%" & txtDesCliente.Text & "%'"
    Ref = "'%" & txtRef.Text & "%'"
    NoteCliente = "'%" & txtDesCliente.Text & "%'"
   
    'definizione della query
   
    query = "UPDATE cliente SET DesCliente = '" & DesCliente & "' WHERE IdCliente = '" & IdCliente & "' "
  
    
    
    cn.Execute query
    
      
Exit Sub
Error_Handler:
    MsgBox "Error " & Err.Number & vbCr & vbCr & Err.Description, vbCritical, "ERROR"
End Sub