Cómo asignar el valor de un campo en una consulta con filtro.

Hola expertos,

Cómo puedo usar una variable para indicar en la siguiente consulta (que hago con filtro) que el campo que se compara puede ser uno u otro dependiendo de lo que elija el usuario:

Es decir, ya que la sentencia de búsqueda es la misma para ambos campos quisiera no tener que escribirla dos veces usando una variable para decirle el valor del campo que cambia.

Dim strBusca as string

'Si elije una opción busca en el campo: CampoNombre

If Me.Txtnombre <> "" Then

me.form..Filter = "[CampoNombre] Like '" & "*" & strBusca & "*'"

end if

'Si elije otra opción busca en el campo: CampoCiudad

If Me.Txtciudad <> "" Then

me.form..Filter = "[CampoCiudad] Like '" & "*" & strBusca & "*'"

end if

me.form..FilterOn = True

saludos y muchas gracias