Devo eliminare gli spazzi che possono esserci in un campo...di una tabella

codice:
Set conn = New ADODB.Connection
Set tony = New ADODB.Recordset

conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\db.mdb"
conn.Open

tony.Open "tony", conn, 3, 3

tony.MoveFirst

Do While Not tony.EOF
   tony.Edit
   indiri = Trim(tony("indirizzo"))
   tony("indirizzo") = indiri
   tony.Update
   tony.MoveNext
Loop
mi da errore su tony.edit....dice che l'oggetto non supporta quella propietà o metodo....
Cosa sto sbagliando???