Access - Consulta y actualización de campos.

Tengo una tabla (CLIENTE) con los siguientes campos:

NOMBRE
DNI
SUELDO
SUBIDA

Cuando quiero actualizar el SUELDO de unas determinadas personas, hago un filtro de formulario y ejecuto el siguiente código cuando pulso un botón:

Dim r As Recordset
Dim sql As String
filtro = Me.Filter
'Consulta con el filtro incluido
sql = "Select CLIENTE.* FROM CLIENTE WHERE " filtro

If (filtro = "") Then
MsgBox ("Filtre los datos, por favor")
Else
Set r = CurrentDb.OpenRecordset(sql)
If r.RecordCount > 0 Then
r.MoveLast
r.MoveFirst
For A = 1 To r.RecordCount
r.Edit
r!SUELDO = r!SUELDO + r!SUBIDA
r.Update
r.MoveNext
Next
End If
End If

Al ejecutar el siguiente código no me actualiza bien cada uno de los SUELDOS de los clientes sino que lo que hace es sumar a cada SUELDO del cliente la suma de la SUBIDA de todos los clientes incluidos en el filtro... Algo estoy haciendo mal... Ayuda.

Muchas gracias.

Buenas noches Ricardo
En la variable sql colocas:
sql = "select * FROM CLIENTE WHERE " & filtro

Suerte.......