Visual Basic - error 3219 al actualizar un campo

hola... necesito que el campo multa se actualice con el valor de label8.caption cuando codigo_Cliente=text1... al ejecutarlo me envia error3219: Operacion no valida... si me prudieran indicar que esta mal se los agradeceria.... de antemano gracias.

Dim db1 As Database
Dim rs1 As Recordset
Dim data As String
data = "update Clientes set multa='" & Label8.Caption & "' where Codigo_Cliente='" & Text1 & "'"
Set db1 = OpenDatabase("C:Documents and SettingsROBERTO GODOYMis documentosVideoClub1.mdb")
Set rs1 = db1.OpenRecordset(data, dbOpenSnapshot)

rs1.Edit
rs1!multa = Label8.Caption
rs1.Update

Un objeto Recordset de tipo Snapshot es un conjunto estático de registros que se puede utilizar para examinar datos en una tabla o tablas subyacentes.

Esto es lo que dice la ayuda, y si es estático no puedes cambiarlo: rs1!multa = Label8.Caption

Abre la tabla como Dynaset