Bueno, tiene tiempo que no trabajo con Visual Basic 6, pero me parece que no puedes hacer una condicion que te busque en todos los elementos de un combobox automaticamente, tendrias que hacer un ciclo para iterar en cada elemento del combobox, y de esa forma construir tu consulta SQL. Aparte de eso, la sintaxis de tu sentencia SQL esta equivocada, no puedes poner 2 veces la clausula where dentro de la misma consulta, y ademas colocas el and fuera de la cadena de consulta. Un detalle adicional, no es recomendable concatenar cadenas para hacer la consulta, ya que hace tu consulta vulnerable a ataques de
Inyeccion SQL, lo mejor es hacer consultas parametrizadas, aunque no recuerdo como se hacen en Visual Basic 6, tendrias que averiguarlo por tu cuenta.
Te dejo un ejemplo de como deberias construir la consulta individual sin parametrizar, queda en ti hacer el ciclo para recorrer cada elemento del combobox, si esa es tu intencion, y averiguar como se hace una consulta parametrizada.
Data1.RecordSource = "SELECT * FROM Pagos WHERE Nombre_de_actividad='" & Combo1.Text & "' And numero_de_cliente=" & Val(Text3.Text)
Saludos
