[VBA/ACCESS] Update da pulsante

[diegoctn]

Ragazzi ho un problema in access. Tramite un pulsante ( che fra le altre cose stampa un report) dovrei settare a yes il campo romeo laddove è a no. Tabella pilastro, questo è il codice.

     
     Set rs = New ADODB.Recordset
sql = "select * from pilastro where romeo=false"
rs.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
rs.romeo = True
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Ma..............
Proprietà o metodo non supportati dall'oggetto.
Il campo romeo è un campo yes/no