[RaouL_BennetH]

Originariamente inviato da kingv

ti salvi in una variabile il contenuto di cognome e nel ramo WHERE metti il vecchio valore , nella SET invece quello nuovo

allora, ho provato così:

Dim stemp As String
             stemp = TextBox(0).Text
             For x = 0 To 14
             If InStr(TextBox(x).Text, "'") Then
                TextBox(x).Text = Replace(TextBox(x).Text, "'", "\'")
             End If
             Next x
             
             
             ssql = ""
             ssql = ssql & "UPDATE tblrubrica" & vbCrLf
             ssql = ssql & "SET Cognome = '" & stemp & "', Nome = '" & TextBox(1).Text & "' ," & _
                           "Azienda = '" & TextBox(2).Text & "', Occupazione = '" & TextBox(3).Text & "' ," & _
                           "Indirizzo = '" & TextBox(4).Text & "', Citta = '" & TextBox(5).Text & "' ," & _
                           "CAP = '" & TextBox(6).Text & "', prov = '" & TextBox(7).Text & "' ," & _
                           "mail = '" & TextBox(8).Text & "', Web = '" & TextBox(9).Text & "' ," & _
                           "Ufficio = '" & TextBox(10).Text & "', Casa = '" & TextBox(11).Text & "' ," & _
                           "Cellulare = '" & TextBox(12).Text & "', Fax = '" & TextBox(13).Text & "' ," & _
                           "Note = '" & TextBox(14).Text & "' " & vbCrLf
             
             ssql = ssql & "WHERE Cognome = '" & TextBox(0).Text & "'"
             
                    Set rs = cn.Execute(ssql)

ma ho il medesimo risultato, cioè, che il campo cognome non viene aggiornato