Hola
A primera vista veo unos de errores:
1.- En combo1 no indicas la propiedad, sería combo1.text (igual por defecto coge la propiedad, pero mejor ponerla)
2.- Después de Combo1 & "'" no deberías cerrar las comillas dobles, ya que lo que lo que viene detrás sigue siendo texto
3.- Repites dos veces la clausula WHERE, con la 1ª es suficiente.
Tendría que quedar algo como:
Cita: Data1.RecordSource = "SELECT * FROM Pagos WHERE Nombre_de_actividad='" & Combo1.text & "' AND Numero_de_cliente=" & Val(Text3.Text)
--Saludos--