modifica così il tuo codice
e incolla qui quello che c'è scritto nell'inputboxcodice:cn = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=W:\PROVA\db2.mdb" Set conn = New ADODB.Connection conn.Open cn InputBox "","MaGGica Query(Copyright Optime):","UPDATE Tabella1 SET (dato1='" & dato1(a) & "' , dato2='" & dato2(a) & "') WHERE (id=" & id(a) & ");" conn.Execute "UPDATE Tabella1 SET (dato1='" & dato1(a) & "' , dato2='" & dato2(a) & "') WHERE (id=" & id(a) & ");"