Macchè niente!

ti posto il codice sotto.
Grazie mille

------
Nota: GiornaleOld e CostoOld sono due variabili globali che assumono il valore iniziale delle rispettive textbox

'** PULSANTE SALVA DEL FORM DI MODIFICA DEL GIORNALE **
'-- Funzione di aggiornamento della Tabella Relazioni
Call AggiornaTabellaRelazioni
'-- Salva ed aggiorna il recorset
Form22.Adodc1.Recordset.Save
Form22.Adodc1.Refresh
'-- Pulisce il Text1.Text del form23
Form15.Text1.Text = ""
Form22.Hide
Form1.Show
'-- Azzera la variabile globale 'Controllo'
Controllo = 0

***FUNZIONE 'AggiornaTabellaRelazioni' ***
'-- Dichiarazione oggetti
Dim cn As ADODB.Connection
Dim rs_titolo As ADODB.Recordset
Dim rs_costo As ADODB.Recordset

Set cn = New ADODB.Connection

'-- Apro la connessione
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\PGMVB6\clienti.mdb;Persist Security Info=False"

'-- Imposto la modifica dei dati che hanno il nome uguale a quello modificato
Set rs_titolo = cn.Execute("UPDATE TabellaRelazioni SET Titolo = '" & Form22.Text1.Text & "' WHERE Titolo = '" & GiornaleOld & "'")

Set rs_costo = cn.Execute("UPDATE TabellaRelazioni SET Costo = '" & Form22.Text2.Text & "' WHERE Costo = '" & CostoOld & "'")