Access - Error que no puedo eliminar

Amigos tengo el siguiente procedimiento

Private Sub ItemCombi_AfterUpdate()
Dim d As Database, r As Recordset, b As String, f As String, r2 As Recordset
Set d = CurrentDb

b = "Select Centro, Item, sum(Costo) as suma FROM Tabla1 Where Year([Fecha])=forms!FormularioDef!AñoPres and Centro=forms!FormularioDef!CentroCombi and Item = forms!FormularioDef!ItemCombi GROUP BY Centro, Item"
Set r = d.OpenRecordset(b)
f = "select * from Tabla2"
Set r2 = d.OpenRecordset(f)

Do Until r.EOF

r2.FindFirst "Item='" & r!Item & "' and Centro='" & r!Centro & "'"
If Not r2.nomatch Then
r2.edit
r2!Estado = r2!Presupuesto - r!suma
r2.Update
End If
r.MoveNext
Loop

End Sub

y en la línea : Set r = d.OpenRecordset(b) me aparece un error que no puedo eliminar y que además no entiendo.
"se ha producido el error 3061 en tiempo de ejecución:
pocos parámetros, se esperaba 3"

No se cómo sacarlo y como les digo no lo entiendo
Espero me puedan aclarar la película
Gracias de antemano

prueba con las comillas dentro del parametro openrecordset
Set r = d.OpenRecordset("b")
Suerte.