vb6 aggiornare campo

[ciro78]

salve uso il seguente codice per aggiornare un campo ma mi da errore

Private Sub Command2_Click()
Dim query As String
Data1.RecordSource = "SELECT Nome FROM elenco"
query = "UPDATE [elenco]"
query = query + "SET [Ciro]=[Pippo]"
Data1.Database.Execute query
Data1.Refresh
grid.Refresh
End Sub

mi aiutate???