qualcuno mi dice dove cavolo sbaglio ??? x favore...sono disperato !

codice:
Private Sub cmdSalva_Click()
Dim id_ut, des, ref, note As String

Dim SQL As String      
Dim conferma As String 
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset

db_path = CurDir & "\Template_GenCode.mdb"
connString = "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & db_path
      
       cn.ConnectionString = connString
       cn.Open
         
          
        id_ut = txtIdCliente.Text
        des = txtDesCliente.Text
        ref = txtRefCliente.Text
        note = txtNoteCliente.Text
                
        lblMessaggio.Caption = id_ut
            
SQL = "UPDATE Clienti SET desCliente = " & des & ", referente = " & ref & ", note = " & note & " WHERE IDCliente = " & id_ut
        
' ESEGUO REALMENTE IL COMANDO SQL 
        
cn.Execute (SQL)
conferma = "Modifica effettuata con successo"
lblMessaggio.Caption = conferma
        

        cn.Close
:master: