modifica così il tuo codice
codice:
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) & ");"
e incolla qui quello che c'è scritto nell'inputbox