[VB6] Modifica (edit) di un campo con ADO

[pascan2]

salve a tutti scusate il titolo poco felice.
questo è il sorgente che uso

Dim cb_temp
On Error Resume Next
Dim Rs As ADODB.Recordset, sSQL As String, lNuovoCodice As Long
Set Rs = New ADODB.Recordset
Rs.Open "SELECT CB.ID, CB.cb FROM CB", CN, adOpenStatic, adLockReadOnly
cb_temp = Val(Rs.Fields("cb")) + 1

in poche parole prelevo il valore dal campo cb (12 cifre), calcolo il check digit e lo inserisco in un textbox.
La mia domanda è questa: come faccio a memorizzare il nuovo valore(quello però aumentato di 1, e non quello nella prelevato dalla tbl)
Normalmente utilizzo i data control e non ho nessun problema, ma vorrei iniziare con gli ado.
grazie anticipatamente

[chico62]

Usando il metodo execute della Connection:

Dim StringaSQL as String
StringaSQL = "UPDATE NomeTuaTabella SET NomeTuoCampo = " & NuovoValoreCampo & "  where NomeTuoCampo = " & VecchioValoreCampo 
NomeTuaConnessione.Execute (StringaSQL)

Ovviamente la sintassi puo' variare in dipendenza del tipo di dati contenuti nel campo e al tipo di database che usi.

Spero sia utile.

Ciauz

CHico