[VB6] Update Database

[chiamatekatia]

Scusate...Non me ne intendo niente per cui devo chiedere a voi...Io ho questo codice che dovrebbe uppare un database mysql:

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String

Private Sub cmdConferma_Click()
Dim percorso As String
Dim Configura As String
Dim Configura2 As String
Configura = txtConfigura1.Text
Configura2 = txtConfigura2.Text
percorso = "database.mdb"
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & percorso
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open stringa
    rs.Open "update Configurazione set Metallo = '" & Configura & "', Cristallo = '" & Configura2 & "' where id = 1", cn, 1

    Set cn = Nothing
    Set rs = Nothing

End Sub

Ma mi fa: Per l'operazione è necessaria una query aggiornabile

Cosa devo fare? :master: