sustituir una cadena

[karmany]

Tengo esto en un módulo .bas que va todo bien:

Form1.Data1.RecordSource = "SELECT * FROM Tabla1 WHERE referencia LIKE '5*' ORDER BY referencia"

para que busque en el campo referencia todas las que empiecen con 5 y me las ordene.

Tengo esto otro en un formulario antes de hacer la llamada a la subrutina del módulo .bas:
valor = "referencia"
lo he definido como string.

y lo que quiero hacer es sustituir referencia de arriba por valor.. y no lo consigo, le he puesto de todo, comillas, paréntesis y nada...

muchas gracias

[karmany]

Ya me lo han solucionado..
" & & "